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EXECUTIVE  SUMMARY 


In  the  summer  of  1982,  the  Ocean  Technology  Division  (Code  252) 
of  the  Ocean  Acoustics  and  Technology  Directorate  began  develop¬ 
ment  of  an  Airborne  Data  Acquisition  and  Processing  System 
(ADAPS).  System  development  was  sponsored  jointly  by  the  Projects 
Support  Branch  (Code  7230)  Ocean  Projects  Division  of  the  Naval 
Oceanographic  Office  and  the  Ocean  Projects  Management  Office 
(Code  540)  of  the  Naval  Ocean  Research  and  Development  Activity 
(NORDA). 

The  ADAPS  is  a  user-programmable  data  acquisition  system  for  use 
aboard  RP-3A  aircraft  operated  by  the  U.  S.  Naval  Oceanographic 
Office.  It  is  designed  for  rapid  collection,  editing  and  storage 
of  data  from  aircraft  launched  expendable  bathythermographs 
(AXBT's)  and  from  various  aircraft  meteorological  sensors. 

This  manual  describes  the  installation,  functional  operation, 
interconnections  for  system  set-up  and  operating  software  programs 
of  the  developed  system.  The  system  is  very  flexible  in  that,  the 
user  can  easily  modify  any  of  the  software  programs  provided  with 
the  system  or  develop  new  programs  which  tailor  system  performance 
to  specific  needs.  The  system  electronics  are  modularly  designed 
so  that  failures  can  be  corrected  by  rapid  replacement  of  printed 
circuit  cards. 

Immediately  after  completion  of  the  first  of  two  systems,  it  was 
installed  in  the  Naval  Oceanographic  Office  project  BIRDSEYE 
aircraft  where  it  is  now  being  utilized  as  part  of  the  aircraft's 
suite  of  instruments.  The  second  system  was  installed  in  project 
SEASCAN  aircraft  during  January  of  1984. 

Installation  and  use  of  ADAPS  has  resulted  in  the  automation  of 
many  airborne  survey  tasks  which  were  previously  accomplished  in  a 
more  time  consuming  manner.  Ocean  thermal  profile  data  can  now  be 
provided  to  fleet  interests  on  a  more  timely  basis,  and  post  pro¬ 
cessing  of  survey  data  for  research  purposes  is  improved  due  to 
availability  of  both  thermal  profiles  and  meteorological  data 
along  with  time  and  position  information  all  on  one  storage  media. 
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1.0  INTRODUCTION 


1.1  SYSTEM  PURPOSE 

The  Airborne  Data  Acquisition  and  Processing  System  (ADAPS)  was  designed  to 
provide  rapid  collection,  editing  and  storage  of  data  from  aircraft  launched 
expendable  bathythermographs  (AXBT)  and  from  various  aircraft  meteorological 
sensors. 

The  system  is  intended  for  use  aboard  RP-3A  aircraft  operated  by  the  Naval 
Oceanographic  Office  (NAVOCEANO)  for  conducting  oceanographic  and  acoustic  surveys. 
During  these  surveys  many  time  consuming  tasks  must  be  performed  by  on-board 
personnel.  These  tasks  include:  1)  acquisition  and  editing  of  AXBT  data,  2)  pre¬ 
paration  of  standard  JJXX  bathymessages,  3)  acquisition  of  sea  surface  temperature 
data  along  with  sky-cloud  background  radiation,  dew  point,  total  temperature  and 
true  air  speed  data.  These  tasks  were  previously  done  in  a  very  time  consuming 
manner  using  various  kinds  of  mass  storage  and  recording  devices  including  cassette 
tape,  1/2"  analog  tape,  strip  chart  recorders  and  X-Y  recorders.  The  ADAPS  system 
allows  acquisition  and  storage  of  all  AXBT,  meteorological,  time  and  navigation  data 
on  one  storage  media  -  1/2"  9-track  computer- compatible  magnetic  tape.  In  addition, 
it  provides  the  capability  to  perform  on-board  editing  of  AXBT  data  and  subsequent 
automatic  preparation  of  JJXX  messages  on  paper  tape,  ready  for  use  by  Navy  Message 
Centers.  ADAPS  automation  of  these  tasks  results  in  faster,  less  labor  intensive 
survey  operations  and  allows  easier  post  processing  of  data  on  other  computers  with¬ 
out  the  necessity  to  transfer  all  data  to  industry  compatible  tape  media. 

1.2  SYSTEM  DESCRIPTION 

The  Airborne  Data  Acquisition  and  Processing  System  (ADAPS)  is  a  user 
programmable  data  acquisition  system  for  use  aboard  RP-3A  aircraft  operated  by  the 
U.  S.  Naval  Oceanographic  Office  (NAVOCEANO). 

ADAPS  is  designed  for  rapid  collection,  editing  and  storage  of  data  from 
aircraft-launched  expendable  bathythermographs  ( AXBT 1 s)  and  from  various  aircraft 
meteorological  sensors. 

The  system  automatically  provides  time  and  aircraft  position  information  for 
both  the  BT  and  meteorological  samples,  and  provides  aircraft  true  air  speed  infor¬ 
mation  necessary  to  correct  total  temperature  measurements. 

All  collected  data  is  permanently  stored  on  industry  compatible  9- track  magnet¬ 
ic  tape.  Capability  is  also  provided  for  editing  recorded  AXBT  data  and  automati¬ 
cally  generating  standard  JJXX  messages,  which  are  recorded  on  paper  tape  for  use  by 
Navy  message  centers. 

Although  designed  specifically  for  collection  of  AXBT  data,  the  hardware  and 
software  flexibility  of  ADAPS  allows  relatively  easy  adaptation  to  other  types  of 
air  launched  expendable  sensors  such  as  air  launched  expendable  sound  velocity 
probes  (AXSV)  and  air  launched  expendable  conductivity  temperature  and  depth  probes 
(AXCTD) . 

As  shown  in  Figure  1,  the  ADAPS  is  comprised  of  five  main  system  elements.  The 
following  sections  provide  a  brief  description  of  each  system  element  and  explain 
its  function  in  the  overall  system  operation. 
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Figure  1.  Airborne  Data  Acquisition  and  Processing  System 
System  Configuration  and  Interconnections 


1.2.1  Data  Acquisition  Interface  Unit 


As  shown  in  Figure  1,  all  data  enters  the  system  through  the  Data  Acquisition 
Interface  Unit  (DAIU).  The  types  and  quantity  of  data  accepted  by  the  DAIU  are  as 
follows: 


1.  Data  from  up  to  three  AXBT  receiver  channels.  (Provisions  for  future 

expansion  to  four  channels  are  included). 

2.  Data  from  either  the  GNS-500  VLF  navigation  system  or  the  LTN-72 
Inertial  navigation  system.  (Selected  by  means  of  front  panel 
swi tch. ) 

3.  Data  from  the  aircraft  true  air  speed  synchro  transmitter. 

4.  Data  from  up  to  eight  0-5VDC  analog  inputs. 

In  the  system  data  acquisition  mode,  the  DAIU  operates  under  control  of  the  HP 
9836  System  Controller  to  provide  signal  conditioning,  filtering  and  digitization  of 
the  incoming  data,  and  transfers  the  digitized  data  to  the  System  Controller  for 
display,  processing  and  storage.  The  DAIU  is  not  used  in  the  system  data  edit  mode. 
For  a  more  detailed  description  of  DAIU  operation,  refer  to  the  Theory  of  Operation 
section  5.0. 

1.2.2  System  Controller 


An  HP  9836A  computer  serves  as  the  main  System  Controller  in  both  the 
data  acquisition  and  data  edit  modes  of  system  operation.  In  data  acquisition  mode, 
the  System  Controller  provides  the  necessary  timing  for  determining  when  to  sample 
data,  checks  status  to  verify  data  validity,  provides  real  time  CRT  graphics  display 
of  data  in  engineering  units,  provides  temporary  data  storage  and  controls  all 
input/output  operations  between  various  system  elements.  In  the  data  edit  mode,  the 
System  Controller  accesses  data  previously  recorded  on  9- track  tape,  displays  data 
for  editing  and  transfers  edited  products  to  the  HP-2673A  printer  and  to  the  HP  9884 
paper  tape  punch. 

1.2.3  Pylon  Recording  System 


The  Dylon  Recording  system  actually  consists  of  two  units;  the  9-track 
magnetic  tape  drive,  and  the  1015B  controller/ formatter,  which  allows  the  tape  drive 
to  be  controlled  by  the  System  Controller.  The  Dylon  Recording  System  is  used  to 
permanently  store  all  data  sampled  by  the  ADAPS.  During  data  acquisition  mode,  the 
data  record  for  each  AXBT  launch  is  recorded.  At  end  of  flight,  all  meteorological 
data  samples  are  recorded  after  the  last  AXBT  data  record.  During  the  data  edit 
mode,  the  Dylon  Recording  system  provides  all  pre-recorded  data  for  processing  and 
editing  under  control  of  the  HP  9836  System  Controller.  Refer  to  Figure  2  for  fur¬ 
ther  details  on  the  Recording  System  data  tape  format.- 

1.2.4  System  Paper  Tape  Punch 

The  HP  9884  Paper  Tape  Punch  is  used  to  record  the  edited  data  set  for 
each  AXBT  in  a  form  which  can  be  used  by  Navy  Message  Centers  for  transmission  to 
fleet  users.  The  message  is  recorded  on  paper  tape  using  5-level  BAUDOT  code  and 
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arranged  in  a  format  known  as  a  JJXX  Bathymessage.  Refer  to  Appendix  A  for  the  JJXX 
message  format  and  digital  character  representations  in  5-level  BAUDOT  code. 

1.2.5  System  Printer 


The  HP  2673A  graphics  printer  is  used  to  provide  hard  copy  of  CRT 
graphics  as  well  as  standard  alphanumeric  hard  copy.  The  system  printer  automati¬ 
cally  provides  hard  copy  of  edited  BT  profiles  and  JJXX  messages  during  standard 
data  editing  operations,  but  hard  copy  CRT  graphics  or  alphanumerics  may  be  genera¬ 
ted  at  any  time  by  the  operator  through  use  of  the  System  Controller's  DUMP  GRAPHICS 
and  DUMP  ALPHA  function  keys.  The  system  printer  is  not  normally  in  use  during  the 
data  acquisition  mode  of  operation. 

1.3  SYSTEM  PERFORMANCE  CHARACTERISTICS 

The  performance  characteristics  of  the  ADAPS  operating  in  its  "as- del ivered" 
hardware/ software  configuration  are  described  below.  It  should  be  noted,  however, 
that  many  of  these  characteristics  are  not  fixed  and  may  be  widely  varied  to  suit 
other  data  collection  requirements. 

1.  The  system  is  capable  of  collecting  data  from  up  to  three  AXBT 
channels  simultaneously  at  a  sample  rate  of  10  samples  per  second 
per  channel.  Provisions  are  made  for  expanding  this  capability  to  a 
maximum  of  four  channels  if  required,  with  a  resulting  reduction  in 
sample  rates  to  approximately  7  samples/second. 

2.  Time  and  position  at  time  of  BT  launch  is  provided  for  each  AXBT 
data  record. 

3.  While  collecting  AXBT  data,  a  real  time  CRT  display  of  the 

temperature- depth  profile  for  each  active  BT  is  generated. 

4.  Concurrent  with  AXBT  data  collection,  the  system  samples  each  of 
eight  0-5VDC  analog  input  channels  at  a  rate  of  one  sample  every  15 
seconds.  Each  15  second  sample  includes  not  only  the  eight  analog 
channels  but  also  time,  position  and  aircraft  true  air  speed. 

5.  All  collected  data  is  stored  on  1/2  inch  9- track  magnetic  tape  in 
raw  binary  form.  Based  on  the  typical  time  for  a  single  environ¬ 
mental  survey  flight  of  8  hours  with  a  maximum  of  90  AXBT's  being 
launched,  each  magnetic  tape  provides  sufficient  storage  capacity 
for  eight  flights.  Refer  to  Figure  2  for  a  description  of  the 
magnetic  tape  data  format. 

6.  Software  is  provided  for  accessing  the  recorded  raw  data,  converting 
to  engineering  units  and  displaying  BT  profiles  for  editing.  Editing 
is  accomplished  by  cursor  selection  of  data  points  representing 
significant  profile  inflection  points.  The  selected  data  set  is  used 
to  automatically  generate  a  standard  JJXX  Bathymessage  which  is 
transmitted  to  paper  tape  for  use  by  Navy  message  centers. 

7.  Software  is  provided  to  access  data  on  a  selected  flight  and 
generate  BT  profiles  which  are  automatically  edited  to  show  tempera¬ 
ture  at  each  50  meter  increment  of  the  profile. 
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8.  Other  programs  are  provided  for  performing  system  checkouts,  setting 
the  real  time  clock  and  for  other  types  of  data  access  and  editing. 
See  the  Software  Description  Section  4.1  for  complete  details. 

9.  Data  Collection  Range  and  Resolution/Accuracy  Characteristics  are  as 
fol 1 ows : 


BT  Data 

Temperature  Range 
Temperature  Accuracy 
Depth  Range 
Depth  Resolution 

Analog  Data 
Voltage  Range 
Voltage  Accuracy 

Navigation  Data 

Position  Accuracy 

True  Air  Speed 
Range 

Resol ution 


-  -2°C  to  +  35 °C 

-  ±0.02°C 

-  0  to  400  or  800  meters 

-  ±0.5  ft. 


-  0  to  5  VDC 

-  ± .005V 


±0.1  min  Lat/Long 


-  70  -  450  knots 

±1.0  knot 


2.0  SYSTEM  INSTALLATION 
2.1  EQUIPMENT  MOUNTING 

Special  mounting  brackets  have  been  supplied  to  facilitate  mounting  of  each 
system  element  in  standard  19  inch  equipment  racks.  Care  should  be  taken  to  assure 
that  all  mounting  brackets  are  securely  installed  and  that  they  prevent  movement  of 
system  equipment  in  any  direction  once  the  equipment  is  installed.  The  equipment 
with  integral  front  rack  mount  flanges  should  not  be  installed  using  these  flanges 
exclusively,  but  should  be  properly  supported  at  sides  and  rear  by  using  the  angle 
brackets  supplied  with  the  system. 

The  CRT  display  of  the  System  Controller  is  attached  to  the  computer  and  locks 
into  place  by  pushing  in  the  sliding  metal  retaining  bracket  at  the  rear  of  the  CRT 
unit.  Since  this  is  the  only  mounting  restraint  for  the  CRT  unit,  care  should  be 
taken  to  assure  that  the  bracket  is  pushed  all  the  way  in  and  locked. 

The  cage  atop  the  HP  2673A  graphics  printer  is  designed  to  re- fold  the  paper 
after  printing  (assuming  perforated  flat-pack  paper  is  used).  The  printer  should  be 
mounted  so  as  to  provide  sufficient  space  for  loading  new  paper  and  for  re- fol ding 
during  printing  operations. 

The  HP  9884A  paper  tape  punch  should  be  mounted  so  as  to  provide  enough  space 
above  the  unit  to  load  tape  and  to  operate  the  controls. 

Cooling  will  not  be  a  problem  for  the  system  when  located  in  air  conditioned 
spaces.  However,  consideration  should  be  given  to  providing  as  much  airflow  as 
possible  when  mounting  the  system  in  racks  or  tight  spaces. 
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2.2  SYSTEM  INTERCONNECTION 


Figure  1  shows  the  cable  connections  that  are  required  between  each  of  the 
ADAPS  functional  units.  Refer  to  Figure  3  for  the  location  of  the  various  data  and 
control  connectors  on  the  DAIU.  The  following  considerations,  along  with  the  above 
mentioned  illustrations,  will  assist  in  properly  interconnecting  the  various  ele¬ 
ments  of  the  ADAPS. 

1.  AXBT  data  from  the  aircraft  receivers,  all  analog  inputs  and  outputs 
and  the  VLF  navigation  system  input  are  connected  to  the  DAIU  by  means 
of  coaxial  BNC  connectors.  When  installing  ADAPS,  new  coaxial  cables 
with  properly  installed  BNC  connectors  should  be  used.  Whenever  pos¬ 
sible  each  data  input  cable  should  be  continuous  with  no  intermediate 
connectors  between  the  data  source  and  the  DAIU  input,  and  should  be 
of  shortest  possible  length  consistent  with  proper  aircraft  routing. 

2.  The  true  airspeed  input  data  and  the  LTN-72  navigation  data  enter  the 
DAIU  by  means  of  10-pin  circular  connectors.  These  inputs  should  be 
connected  to  the  true  air  speed  computer  synchro  output  and  the  LTN-72 
6-wire  output  according  to  the  pin  assignments  shown  in  Figure  4. 

3.  The  HP  9836A  System  Controller  interfaces  to  the  DAIU  and  to  the  HP 
9884  paper  tape  punch  via  HP  98622A  16-bit  parallel  interfaces.  These 
interface  units  are  plugged  into  the  back  of  the  System  Controller  and 
are  clearly  marked  with  their  individual  select  codes  (See  System  Con¬ 
figuration  Section  2-3  for  discussion  of  select  codes.)  The  DAIU 
should  be  connected  to  the  System  Controller  interface  unit  marked 
select  code  12  using  the  cable  marked  with  the  same  select  code.  The 
HP  9884  paper  tape  punch  is  connected  to  the  System  Controller  Inter¬ 
face  unit  marked  with  select  code  08  using  the  cable  marked  with  the 
same  select  code. 

4.  The  System  Controller  is  connected  to  both  the  HP  2673A  graphics 
printer  and  the  Dylon  Recording  system  via  the  Hewlett  Packard  Inter¬ 
face  Bus  (HPIB)  which  is  integral  to  the  System  Controller.  Standard 
HPIB  cables  are  used  for  these  connections. 

5.  Connection  between  the  Dylon  Model  1015B  Magnetic  Tape  Controller  and 
the  Model  9700  Tape  Transport  is  via  ribbon  cables  and  connectors 
supplied  by  Dylon  Corp.  Figure  5  illustrates  the  ribbon  cable  inter¬ 
connections  that  must  be  made  between  the  two  units  for  proper  opera¬ 
tion. 

6.  All  elements  of  the  ADAPS  require  120  VAC,  60  Hz  single  phase  power. 
In  making  power  connections  to  each  of  the  electronic  units,  it  is 
very  important  to  connect  each  unit  to  the  same  phase  of  the  115  VAC, 
60  Hz  power  system  to  prevent  troublesome  AC  power  ground  loops.  It  is 
recommended  that  all  units  be  plugged  into  a  power  strip  which  is  in 
turn  plugged  into  a  single  power  source  outlet. 

7.  Grounding  is  very  important  to  proper  operation  of  the  ADAPS  system. 

Si gnal  and  power  grounds  and  shields  have  been  carefully  carried 

through  the  system  to  a  single  point  located  inside  the  DAIU.  This 
point  is  also  available  on  the  back  panel  in  the  form  of  a  ground  post 
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Figure  3.  Data  Acquisition  Interface  Unit  Back  Panel  Input/Output  Layout 
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Figure  4.  TAS/INS  Data  Cable  Connections 
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Figure  5.  Dylon  Tape  Recording  System  Interconnection 


located  in  the  lower  left  corner  of  the  back  panel.  This  grounding 
post  must  be  connected  to  airframe  ground.  The  connection  point  must 
be  a  permanently  installed  metallic  rack,  console  or  structural  member 
of  the  aircraft  that  is  free  of  paint  or  any  other  insulating  mate¬ 
rial.  The  connection  should  be  firm,  preferably  bolted,  to  ensure 
proper  contact  with  airframe  ground. 

8.  In  order  to  ensure  positive  vibration  resistant  cable  connections  it 
is  imperative  that  hold-down  screws  or  brackets  supplied  with  the 
system  be  used  at  all  interconnection  points.  This  is  particularly 
important  in  the  aircraft  environment  where  constant  vibration  is  the 
largest  contributing  factor  to  intermittent  connections  and  contacts. 
Caution  should  be  exercised  when  routing  cables  to  ensure  against 
chafing  or  any  undue  strain  placed  upon  the  connectors. 

3.0  SYSTEM  CONFIGURATION 


The  following  sections  describe  special  requirements  for  configuring  cards  and 
interfaces  in  the  ADAPS  DAIU  and  System  Controller.  These  requirements  involve 
setting  of  configuration  switches  for  proper  operation  of  the  system. 

3.1  DATA  ACQUISITION  INTERFACE  UNIT  (DAIU)  CONFIGURATION 

The  motherboard  of  the  Interface  Unit  is  designed  so  that  cards  may  be  inserted 
into  any  of  the  twelve  available  slots  in  any  order.  However,  proper  switch  config¬ 
urations  are  required  on  each  card  to  assure  proper  interface  operation. 

Each  card  is  clearly  marked  on  the  component  side  indicating  its  function.  The 
unit  is  capable  of  accepting  a  total  of  twelve  cards,  i.e.  four  signal  Conditioning 
Cards,  four  Period  Counter  Cards,  Status/Termination  card,  Meteorological  Data  Card, 
Navigation  Interface  Card  and  the  TAS  Synchro  Card. 

NOTE:  It  is  extremely  important  that  no  two  like  cards  contain  the  same  switch 

settings  while  being  plugged  into  the  Interface  during  operation.  Damage  to  the 

Interface  Unit  and/or  the  system  Controller  may  result  if  more  than  one  card  is 
configured  in  the  same  manner. 

3.1.1  Analog  Signal  Conditioning  Card  Configuration 

There  are  three  signal  conditioning  cards  which,  when  properly  config¬ 
ured,  will  correspond  to  their  respective  input  channels.  See  Figure  6  for  proper 
switch  settings  to  select  the  corresponding  data  channel.  The  cards  may  be  installed 
in  any  of  the  12  available  slots. 

3.1.2  Period  Counter  Card  Configuration 

There  are  three  period  counder  cards  which,  when  propoerly  configured, 
will  correspond  to  their  respective  input  channels.  See  Figure  7  for  proper  switch 
settings  to  select  the  corresponding  data  channel.  The  cards  may  be  installed  in  any 
of  the  12  available  card  slots. 


11 


SWITCH  NUMBERS  CORRESPOND  TO  CHANNEL  NUMBERS. 
ALL  THREE  SWITCHES  MUST  BE  CONFIGURED  IDENTICALLY. 
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Figure  6.  Signal  Conditioning  Card  -  Switch  Configurations,  Channel  Select 
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Figure  7.  Period  Counter  Card  —  Switch  Configurations,  Channel  Select 


3.1.3  Navigation  Interface  Card  Configuration 


In  order  for  the  Navigation  Interface  Card  to  properly  decode  and  inter¬ 
pret  the  aircrafts'  navigation  data,  the  switches  must  be  configured  to  match  the 
desired  information  code.  Latitude  and  longitude  information  is  accompanied  by  the 
code  depicted  in  the  table  on  Figure  8.  Careful  attention  should  be  given  to  the 
arrangement  of  the  switches  on  the  card  in  order  to  select  the  proper  code. 

3.1.4  Status/Termination  Card  Configuration 


Status  of  each  AXBT  data  channel  is  monitored  by  the  Status/Termination 
card  to  determine  if  a  BT  signal  is  present  and  if  the  signal  is  within  the  fre¬ 
quency  range  valid  for  AXBT's.  The  valid  range  is  determined  by  resistor  selection 
via  switches  on  the  card.  At  present,  only  one  resistor  (6.19  K)  is  installed  for 
each  switch  and  the  switch  position  corresponding  to  this  resistor  should  be  "on". 

Provision  has  been  made  for  future  addition  of  up  to  three  more  resi s- 
tors  to  accommodate  different  frequency  ranges  when  other  types  of  expendable 
devices  are  used. 

The  Status/Termination  Card  is  required  at  any  time  the  Interface  Unit 
is  used  with  the  HP  9836  System  Controller.  This  card  also  provides  proper  termina¬ 
tion  of  control  lines  and  must  be  in  place  to  avoid  any  "floating"  condition  which 
may  occur  in  the  otherwise  open  inputs. 

3.2  SYSTEM  CONTROLLER  16-BIT  I/O  CONFIGURATION  (HP  98622A  GPIO) 

All  data  transfers  to  and  from  the  DAIU  and  System  Controller  are  routed 
through  the  HP  98622A  16-bit  I/O  (GPIO).  This  unit  is  plugged  into  the  back  of  the 
System  Controller  and  must  be  configured  for  proper  operation  with  the  DAIU  by  means 
of  DIP  switches  located  on  the  I/O  plug-in  card.  Complete  instructions  for  setting 
these  switches  are  contained  in  the  HP  98622A  GPIO  Interface  Installation  Manual. 
This  manual  is  included  as  part  of  the  HP  9836A  Interfacing  Techniques  Manual  pro¬ 
vided  with  the  System  Controller.  The  appropriate  switches  should  be  set  to  provide 
the  following  I/O  configuration. 

1 )  Select  Code  -  12 

2)  Interrupt  level  -  Default 

3)  Data-In  Clock  Source 

Upper  -  RDY 
Lower  -  RDY 

4)  Option  Select 

DOUT  -  Logic  1 
DIN  -  Logic  0 
HSHK  -  Logic  1 
PSTS  -  Logic  1 
PFLG  -  Logic  1 
PCTL  -  Logic  1 
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Figure  8.  Navigation  Card  Switch  Configuration 


The  16-bit  I/O  provided  with  the  ADAPS  will  already  be  configured  for  proper 
operation.  The  above  information  is  provided  in  case  of  I/O  replacement  or  in  case 
the  I/O  configuration  is  inadvertently  changed. 

4.0  ADAPS  SYSTEM  OPERATION 

The  following  contains  information  and  instruction  necessary  for  applying  power 
and  operating  all  elements  of  the  ADAPS  System.  These  procedures  must  be  followed 
explicitly  to  ensure  proper  system  operation. 

4.1  ADAPS  TURN-ON  PROCEDURES 

All  elements  of  the  ADAPS  should  first  be  connected  as  described  in  System 
Interconnection  Section  2.2.  Each  unit,  with  the  exception  of  the  System  Controller 
and  the  Dylon  recording  system  may  be  powered  up  by  simply  activating  the  power 
on/off  switches.  The  following  instructions  will  assist  in  properly  preparing  the 
remaining  elements  for  operation. 

4.1.1  Recorder  System 


Switch  the  power  of  the  Model  1015B  to  the  ON  position.  The  four  left 
most  indicators  on  the  front  panel  will  light  and  then  extinguish  after  two  seconds 
and  remain  extinguished.  If  they  do  not,  the  controller  is  probably  defective  and 
cannot  be  used. 

In  order  to  ensure  correct  tape  loading,  follow  the  steps  listed  below: 

1.  Turn  on  the  drive  power. 

2.  Check  the  tape  reel  for  a  write  permit  ring  on  the  reverse  side 

if  the  tape  is  to  be  written  on. 

3.  Mount  the  tape  on  the  supply  hub,  label  side  out.  Pull  out  the 
reel  locking  lever,  place  the  tape  on  the  hub  evenly  and 
depress  the  locking  lever.  Spin  the  reel  to  make  sure  it  is 
seated  squarely  on  the  hub.  If  it  wobbles,  repeat  this  step. 

4.  Thread  the  tape  leader  through  the  tape  path,  following  the 
threading  diagram  on  the  tape  drive.  Wrap  at  least  two  turns  of 
tape  on  the  take  up  capstan.  The  tape  should  be  taut  against 
the  various  roller  guides.  If  it  is  not,  rotate  the  take-up 
capstan  to  remove  any  slack. 

5.  Close  the  front  cover  to  protect  the  tape  and  drive  from  dust. 

6.  Momentarily  depress  the  LOAD  button. 

7.  The  tape  drive  must  be  activated  for  computer  control  by  momen¬ 

tarily  depressing  the  ON-LINE  button.  The  associated  indicator 
should  be  illuminated. 

8.  The  controller  READY  light  should  now  be  illuminated.  If  it  is 
not,  repeat  this  procedure.  If  it  remains  unlit  the  system  is 
either  defective  or  not  properly  installed. 
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4.1.2  HP  9836  System  Controller 


The  power  ON/OFF  switch  is  located  in  the  lower  right  front  of  the 
calculator  unit.  Prior  to  activating  this  switch  the  following  steps  will  assist  in 
properly  initiating  the  basic  operating  system. 


1.  Insert  the  program  disc  entitled  "BASIC  System"  and  lock  the 
disc  drive  door  in  the  down  position. 

2.  Turn  on  the  computer  system.  The  disc  containing  the  BASIC 
operating  system  will  automatically  load  as  the  power  comes  up. 
Proper  loading  is  indicated  by  the  CRT  displaying  "BASIC  Ready 
2.0". 

3.  Unlock  the  disc  drive,  remove  the  disc  and  return  it  to  the  disc 

file. 


4.  Insert  the  disc  entitled  "Extended  BASIC  2.0"  into  the  disc 
drive,  type  LOAD  BIN  "AP2  0"  and  press  EXECUTE.  Proper  loading 
of  Extended  Basic  2.0  is  Tndicated  by  the  CRT  displaying  "BASIC 
Ext.  AP  2.0". 

5.  After  loading  this  program  disc,  remove  it  from  the  tape  drive 

and  return  it  to  the  disc  file. 

The  system  is  now  ready  to  accept  the  ADAPS  data  acquisition  programs.  Refer 
to  section  4.2  for  description  of  the  ADAPS  software  and  for  instructions  for  load¬ 
ing  and  operating  the  software. 

4.1.3  Tape  Rewind  and  Unloading 

In  order  to  ensure  correct  unloading  of  tape,  follow  the  steps  listed 

below: 

1.  Momentarily  depress  the  ON-LINE  button.  The  associated 
indicator  should  extinguish. 

2.  Momentarily  depress  the  REWIND  button.  If  the  tape  is  at  the 
load  point,  it  will  be  unloaded.  If  the  tape  is  not  at  load 
point,  it  will  be  rewound  only  to  load  point.  A  second 
actuation  of  the  REWIND  button  is  required  to  unload  the  tape. 

3.  Remove  the  tape  reel  from  the  tape  drive  by  pulling  out  the 
reel  locking  lever.  The  locking  lever  should  be  pushed  back  in 
when  the  tape  drive  is  not  in  use. 

4.  The  front  cover  should  be  kept  closed  any  time  the  tape  drive 
is  not  in  use.  Dust  contamination  of  the  tape  drive  can  cause 
severe  read/write  problems. 
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4.2  SYSTEM  SOFTWARE 


4.2.1  Software  Description 


The  ADAPS  has  been  provided  with  a  basic  package  of  software  which 
should  be  sufficient  for  normal  airborne  survey  operations.  The  following  is  a  brief 
description  of  each  program  provided  in  the  ADAPS  basic  software  package. 


1.  "SYS_CHECK"  -  Checks  for  proper  operation  of  all  peripherals  and 

connecting  interfaces. 

2.  "TIMEDATE"  -  Allows  operator  to  check  and  set  the  computer 

real  time  clock. 

3.  "BT_DATA"  -  This  is  the  system  main  data  acquisition  program. 

Data  is  collected  from  up  to  three  AXBT  channels 
simultaneously  while  providing  real  time  CRT  dis¬ 
play  of  the  temp- depth  profiles.  Stores  each  BT 
record  on  magnetic  tape  either  automatically  at 
end  of  descent  or  at  operator  command.  Each  AXBT 
record  is  stored  along  with  time  and  position  of 
launch. 


Concurrent  with  AXBT  data  acquisition,  a  sample 
is  taken  every  15  seconds  which  includes  the 
following  data: 

1.  Time  of  sample 

2.  Position  at  time  of  sample 

3.  Voltage  at  each  analog  input  (8  total) 

4.  Aircraft  true  air  speed 

Each  of  these  samples  is  stored  internally  until 
end  of  survey  flight  at  which  time  the  entire 
data  array  is  written  to  9- track  tape  at  the  end 
of  the  last  AXBT  data  record. 

4.  "BT_EDIT"  -  Allows  the  operator  to  display  and  edit  the 

temperature-depth  profile  of  any  AXBT  recorded  on 
a  survey  flight.  The  operator  selects  a  set  of 
profile  inflection  points  by  means  of  a  cursor 
and  this  data  is  used  to  automatically  generate  a 
standardized  JJXX  Bathymessage.  A  hard  copy  of 
the  BT  profile  and  associated  JJXX  message  are 
automatically  printed  and  the  JJXX  message  data 
is  automatically  recorded  on  paper  tape. 

5.  "FAST_EDIT"  This  program  provides  the  same  editing  capa¬ 

bilities  as  "BT-EDIT"  except  that  hard  copy  of 
profile  and  message  are  not  generated,  and  the 
JJXX  message  is  immediately  recorded  on  paper 
tape. 
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6.  "50M-DUMP"  Once  a  survey  flight  number  is  selected  by  the 

operator,  this  program  proceeds  automatically 
with  no  further  operator  intervention.  For  each 
AXBT  data  record  on  the  selected  flight,  this 
program  provides  a  hard  copy  of  the  BT  profile 
along  with  temperature  values  at  each  50  meter 
increment  of  the  profile. 

7.  "TAPE_DUMP"  This  program  prints  out  a  summary  of  the  entire 

contents  of  an  ADAPS  data  tape,  by  survey  flight 
number.  For  each  survey  flight,  the  flight  number 
and  date  are  printed,  followed  by  BT  number,  time 
of  launch,  and  position  at  time  of  launch  for 
each  BT  data  record  recorded  on  that  survey 
flight.  All  survey  flights  recorded  on  the  tape 
are  automatically  summarized  in  this  manner. 


8.  "MET_LIST"  This  program  provides  hard  copy  print-out  of  all 
meteorolgical  data  recorded  on  a  selected  data 
flight.  Each  data  sample  is  printed  as  time, 
position,  voltage  at  each  of  8  analog  inputs  and 
true  airspeed. 


4.2.2  Software  Operation 

Prior  to  loading  any  software  into  the  System  Controller,  the  ADAPS 
turn-on  procedures  of  section  4.1  must  be  performed.  As  indicated  by  the  Software 
Description  in  section  4.2.1,  the  software  which  is  provided  with  the  ADAPS  falls 
into  three  main  categories;  System  Checkout,  Data  Acquisition  and  Data  Processing. 
The  System  checkout  programs  should  always  be  run  prior  to  beginning  data 
acquisition  during  a  survey  flight.  This  will  assure  that  the  system  Real  Time  clock 
is  properly  set  and  that  all  peripherals  and  I/O  devices  are  properly  connected  and 
operati ng. 


The  following  general  considerations  will  assist  the  operator  in  proper¬ 
ly  running  the  ADAPS  software. 

1.  The  ten  keys  labeled  K0  through  K9  and  located  in  the  upper  left 

hand  corner  of  the  keyboard  are  called  "softkeys"  and  are  used 
extensively  in  the  ADAPS  programs  to  perform  specific  func¬ 
tions.  A  menu  of  labels  which  defines  the  current  function  of 
each  softkey  is  displayed  at  the  bottom  of  the  CRT. 

2.  Whenever  applications  software  is  not  being  run,  softkeys  K5 
through  K9  are  assigned  functions  which  aid  the  operator  in 
loading  and  storing  programs  on  disc,  displaying  disc  contents, 
listing  programs  and  clearing  memory.  However,  these  keys  may 
be  redefined  by  a  running  applications  program  to  serve  other 
functions. 

3.  To  load  an  applications  program,  press  the  softkey  labeled  LOAD 
and  the  CRT  will  display  the  command  LOAD  followed  by  quotation 
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marks  within  which  the  name  of  the  program  to  be  loaded  is 
typed.  For  example: 


LOAD  "TIMEDATE" 

4.  To  clear  the  computer  memory,  the  softkey  labeled  SCRATCH  is 
pressed  followed  by  the  EXECUTE  key. 

5.  A  catalog  of  programs  and  data  resident  on  a  disc  may  be  dis¬ 
played  by  pressing  the  softkey  labeled  CAT  followed  by  the 
EXECUTE  key.  This  will  display  a  listing  of  all  programs  and 
data  on  the  disc  installed  in  the  right  hand  disc  drive. 

6.  Whenever  a  program  asks  for  a  yes  or  no  decision,  the  operator 
may  enter  Y,  N,  YES,  or  NO,  followed  by  pressing  CONTINUE  to 
enter  the  decision. 

7.  To  reset  the  computer  one  of  the  shift  keys  must  be  pressed 
while  pressing  the  RESET  key. 

4. 2. 2.1  System  Checkout  Software 

1.  Insert  the  ADAPS  PROGRAM  DISC  into  the  right  hand 
disc  drive  and  close  the  drive  door. 

2.  Press  the  "LOAD"  softkey,  type  in  TIMEDATE,  and  press 
the  EXECUTE  key.  The  "TIMEDATE"  program  will  be 
loaded  into  the  computer. 

3.  Press  the  RUN  key.  The  current  date  setting  will  be 
displayed.  If  you  wish  to  change  the  date,  type  in 
the  new  date  in  place  of  the  old  and  press  CONTINUE. 
The  new  date  will  be  displayed  at  the  upper  right  of 
the  CRT,  and  the  current  time  will  be  displayed  at 
lower  left. 

4.  If  you  wish  to  change  the  time,  type  in  the  new  time 
in  place  of  the  old  and  press  CONTINUE.  The  new  date 
and  time  will  be  displayed  at  upper  right  and  the 
time  will  be  continuously  updated  until  the  program 
is  stopped  by  pressing  RESET. 

5.  Once  date  and  time  are  properly  set,  clear  the 
computer  memory  by  pressing  the  SCRATCH  softkey  and 
EXECUTE. 

6.  Press  the  "LOAD"  softkey,  type  in  SYS_CHEK,  and  press 

the  EXECUTE  key.  This  loads  the  "SYS_CHEK"  program. 

7.  Press  the  RUN  key.  The  CRT  will  display  "NAV 
INTERFACE  NOW  BEING  CHECKED"  and  "PRESS  ANY  KEY  TO 
CONTINUE  SYSTEM  CHECKOUT."  The  current  latitude  and 
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longitude  being  read  by  the  DAIU  will  be  displayed  in 
the  upper  right  of  the  CRT,  if  the  navigation 
interface  is  properly  operating. 

8.  If  the  interface  does  not  respond  after  2  seconds,  an 
alarm  is  sounded  and  the  CRT  displays  "NAV  INTERFACE 
IS  NOT  RESPONDING!!"  At  this  point,  checks  should  be 
made  to  determine  the  cause  of  the  problem. 

9.  If  the  Navigation  Interface  has  responded  properly, 
press  any  key  on  the  keyboard  and  the  computer  will 
begin  checkout  of  the  analog  interface. 

10.  Checkout  of  the  analog  and  true  airspeed  interfaces 
proceeds  essentially  the  same  as  for  the  navigation 
interface  (steps  7  through  9). 

11.  Checkout  of  the  printer,  paper  tape  punch  and  tape 
recording  system  differs  only  in  that  no  data  is 
displayed, and  the  computer  informs  the  operator  if 
the  interface  is  operating  properly.  For  example,  if 
the  tape  recorder  is  operating  properly,  the  CRT  will 
display  "TAPE  RECORDER  IS  OK"  and  "PRESS  ANY  KEY  TO 
CONTINUE  SYSTEM  CHECKOUT." 

12.  After  the  tape  recording  system  has  been  checked, 
press  any  key  to  begin  checkout  of  the  AXBT  data 
acquisition  functions.  This  requires  simulated  BT 
signals  applied  to  all  BT  channels  (1-3). 

13.  The  signal  frequency  and  computed  temperature  will  be 
displayed  at  upper  right  of  the  CRT  for  each  BT 
channel.  If  no  signal  is  detected  on  a  BT  channel 
(i.e.  channel  1)  this  is  indicated  by  displaying 

STATUS  INDICATES  NO  CHAN  1  SIGNAL!!."  Frequency  and 
temperature  of  other  channels  will  continue  to  be 
displayed. 

14.  If  signal  is  present,  but  the  Interface  does  not 
respond  to  a  request  for  data  this  is  indicated  by 
displaying  "CHAN  1  INTERFACE  IS  NOT  RESPONDING." 

15.  If  all  BT  channels  check  out  properly,  press  any  key 
to  terminate  the  checkout  and  display  "SYSTEM  CHECK 
FINISHED." 

4. 2. 2. 2  Data  Acquisition  Software 

The  system  checkout  software  of  section  4.2.2. 1  must  be 
run  prior  to  using  the  Data  Acquisition  Software. 

|t  (|  ADAPS  data  acquisition  is  accomplished  using  the  program 

named  "BT  DATA."  The  following  step-by-step  procedures  will  assist  in  properly 
running  tFis  program. 
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1.  Clear  the  computer  memory  by  pressing  the  SCRATCH 
softkey,  followed  by  EXECUTE. 

2.  Insert  the  ADAPS  PROGRAM  DISC  into  the  right  hand 
drive,  and  close  the  drive  door. 

3.  Press  the  LOAD  softkey,  type  BT  DATA,  and  press 
EXECUTE.  This  loads  the  program- "BT  DATA." 

4.  Press  RUN.  The  computer  will  request  entry  of  the 
month,  day,  and  year.  After  this  information  is 
entered,  it  will  be  displayed  at  upper  right  of  the 


5.  The  computer  will  ask  for  a  flight  number  (must  be 
integer  number),  first  BT  number  for  this  flight  and 
entry  of  shallow  (1),  deep  (2),  or  mixed  (3)  for  BT 
type.  As  each  of  these  is  entered,  it  is  displayed  at 
upper  right  of  the  CRT. 

6.  The  computer  now  asks  if  all  displayed  information  is 
correct.  If  "N"  or  "NO"  is  entered  it  will  repeat 
request  for  entries  starting  at  month,  day  and  year. 

7.  If  "Y"  or  "YES"  is  enterd,  the  computer  next  asks, 
"WILL  THIS  BE  A  NEW  TAPE?"  "Y"  or  "YES"  should  be 
entered  only  if  the  tape  to  be  used  is  new  and 
contains  no  data  from  previous  survey  flights. 
Otherwise,  "N"  or  "NO"  is  entered  after  which  the 
computer  finds  the  end  of  the  last  survey  flight  data 
on  the  tape  and  proceeds  to  write  the  flight  header 
data  for  the  new  survey  flight. 

After  recording  the  flight  header  information,  the  com¬ 
puter  loads  the  graphics  display  upon  which  BT  temperature- depth  profiles  are 
plotted  during  data  acquisition.  Also  displayed  is  a  menu  of  softkey  functions  to  be 
used  by  the  operator  during  data  acquisition.  At  this  point,  the  system  has  begun  to 
take  meteorological  data  samples  every  15  seconds,  which  it  stores  internally,  and 
is  waiting  for  launch  of  the  first  BT,  as  signaled  by  the  operator  pressing  the 
appropriate  softkey.  Softkey  functions  are  arranged  by  BT  channel  number  from  left 
to  right.  Normal ly,  those  functions  designated  by  BT  #1  correspond  to  BT  channel  12, 
those  designated  by  BT  #2  correspond  to  BT  channel  14  and  those  designated  by  BT  #3* 
correspond  to  BT  channel  16.  Softkey  function  labels  preceded  by  a  (i.e. 
"/ABORT")  require  that  the  SHIFT  key  be  pressed  to  activate  the  softkey  function. 

BT  signal  outputs  from  channels.  12,  14,  and  16  are  also 
monitored  on  oscilloscopes  mounted  in  close  proximity  to  the  System  Controller.  This 
allows  the  operator  to  monitor  the  status  of  each  BT  channel  in  order  to  properly 
control  data  acquisition  by  means  of  softkey  functions.  To  properly  acquire  and 
store  BT  and  meteorological  data,  the  below  listed  step-by-step  procedure  should  be 
followed. 


1.  Press  the  "LAUNCH"  softkey  for  the  appropriate 

channel  when  the  AXBT  is  launched  from  the  aircraft. 
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This  causes  the  computer  to  assign  the  next  BT  number 
to  that  launch,  acquire  and  store  time  and  position 
of  launch.  BT  number  and  time  of  launch  is  displayed 
above  the  appropriate  temperature-depth  profile 
graphics  field. 

2.  The  displayed  function  label  for  the  "LAUNCH"  key 
just  pressed  now  changes  to  "START". 

3.  Observe  the  oscilloscope  display  of  the  appropriate 
BT  channel.  When  the  display  indicates  that  the  BT 
has  entered  the  water  and  begun  RF  transmission 
(single  line- no  noise),  press  the  "START"  softkey. 

The  computer  will  now  begin  looking  for  a  modulation 
signal  on  that  channel,  indicating  that  the  probe  has 
started  its  descent. 

4.  When  the  computer  detects  start  of  descent  it  will 
automatically  begin  sampling  and  storing  data  from 
that  channel,  while  displaying  a  real-time 
temperature-depth  profile  in  the  appropriate  display 
field. 

5.  When  the  "START"  softkey  is  pressed,  the  displayed 
function  label  for  this  key  changes  to  "LAUNCH/STOP." 

6.  If  another  BT  is  launched  on  the  same  channel  as  one 
which  has  not  yet  completed  descent,  press  the 
"LAUNCH/STOP"  softkey.  This  traps  the  next  BT  number, 
launch  time  and  position  of  the  second  BT  and  holds 
it  until  the  first  BT  has  completed  descent  or  is 
stopped  by  the  operator. 

7.  When  the  "LAUNCH/STOP"  softkey  is  pressed,  the  dis¬ 
played  function  label  for  that  key  changes  to 
"**/ST0P " ,  indicating  that  a  second  BT  has  been 
launched  on  that  channel. 

8.  A  descending  BT  may  be  allowed  to  descend  to  maximum 
depth  (400  or  800  meters)  at  which  time  the  computer 
automatically  terminates  sampling,  or  the  operator 
may  terminate  prior  to  completion  of  descent  by 
pressing  the  SHIFT  key  and,  simultaneously,  the 
"LAUNCH/STOP"  softkey  (or  "**/ST0P"  softkey  if  a 
second  BT  has  been  launched  on  that  channel).  In 
either  case  the  computer  transfers  the  acquired  data 
to  magnetic  tape  and  prepares  for  launch  (or  start) 
of  a  new  BT  on  that  channel . 

9.  If  a  second  BT  has  not  been  launched  on  the  same 
channel  prior  to  termination,  the  displayed  function 
label  of  the  "LAUNCH/STOP"  softkey  changes  to 
"LAUNCH"  and  operation  for  that  channel  begins  again 
from  step  1  above. 
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10. 


If  a  second  BT  has  been  launched  on  the  same  channel 
prior  to  termination  the  displayed  function  label  of 
the  "**/ST0P"  key  changes  to  "START",  the  previously 
stored  BT  number  and  launch  time  are  displayed  above 
the  appropriate  graphics  field,  and  operation  for 
that  channel  begins  again  at  step  3  above. 

11.  If,  after  launch,  a  BT  malfunctions  by  not  trans¬ 
mitting  RF,  or  not  releasing  the  probe,  etc.,  that  BT 
may  be  aborted  by  pressing  the  SHIFT  key  and  the 
appropriate  "/ABORT"  softkey.  Any  data  samples  taken 
are  not  recorded  on  mag  tape.  The  computer  then  pre¬ 
pares  for  another  launch  (start)  on  that  channel.  It 
should  be  remembered  that  when  a  BT  is  aborted,  the 
BT  number  assigned  to  it  j_s  used  although  no  data  is 
recorded. 

12.  After  termination  of  the  last  BT  launched  on  the 
current  survey  flight,  press  the  "SHIFT"  key  and, 
simultaneously,  the  "/END  SURVEY"  key.  This  causes 
the  computer  to  transfer  all  meteorological  data  onto 
magnetic  tape  after  the  last  BT  data  record.  A  double 
file  mark  is  then  written  to  tape  to  identify  the  end 
of  the  last  valid  data. 

Although  the  above  procedures  were  described  using  only  one  BT 
channel  for  examples,  these  procedures  also  apply  to  operations  involving  up  to 
three  active  BT  channels. 

It  should  be  noted  that  the  operator  is  responsible  for  keeping 
track  of  which  channel  a  BT  is  about  to  be  launched  on,  and  for  monitoring  the 
status  of  each  BT  signal  on  the  oscilloscopes,  so  that  data  acquisition  may  be 
properly  controlled  by  means  of  the  special  function  keys  assigned  to  each  BT 
channel . 

4. 2. 2. 3  Data  Processing  Software 

Several  types  of  processing  are  available  for  ADAPS  data 
through  use  of  the  "BT_EDIT" ,  "FAST_EDIT" ,  "MET_EDIT",  "50M_DUMP"  and  "TAPEDUMP" 
programs.  (See  section  4.2.1  for  a  description  of  each  program.) 

Each  of  these  programs  operates  on  data  which  has  been  pre¬ 
viously  recorded  on  9-track  tape  using  the  "BT_DATA"  data  acquisition  program. 
Therefore,  prior  to  running  any  processing  program,  the  ADAPS  must  be  powered  up  as 
described  in  section  4.0  and  a  magnetic  tape  containing  the  desired  data  must  be 
mounted  and  loaded  on  the  Dylon  tape  drive. 

The  following  sections  provide  step-by-step  procedures  for 
properly  utilizing  the  selected  data  edit  program. 

4. 2. 2. 3.1  "BT_EDIT"  Program 

1.  Insert  the  ADAPS  PROGRAM  DISC  into  the  right  hand 
drive  and  close  the  drive  door. 
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2.  Press  the  "SCRATCH"  softkey  followed  by  the  EXECUTE 

key  to  clear  memory. 

3.  Press  the  "LOAD"  softkey,  type  in  BT  EDIT,  and  press 

the  EXECUTE  key.  This  loads  "BT_EDIT' . 

4.  Press  RUN.  The  computer  asks  for  FLIGHT  NUMBER,  BT 

NUMBER  AND  BT  TYPE.  Enter  each  of  these  as 
instructed.  The  computer  will  now  search  the  tape 

for  the  desired  flight  number  and  BT  number. 

5.  When  the  desired  flight  and  BT  are  found,  the  com¬ 

puter  accesses  the  BT  profile  data,  and  displays 
the  temperature- depth  profile  on  the  CRT  along  with 
BT  number,  time  and  position  of  launch. 

6.  Select  a  desired  profile  inflection  point  by  moving 
the  display  cursor  using  the  thumb  wheel  at  upper 
left 'of  the  keyboard.  When  the  cursor  is  aligned 
with  the  selected  datapoint,  press,  the  "SELECT 
DATA"  softkey.  The  depth  and  temperature  at  this 
point  will  be  stored  and  displayed  at  the  right  of 
the  profile*  display.  You  may  select  up  to  23  dif¬ 
ferent  T-n-fJ&ction  points  in  this  manner.  The  cursor 
may  be  moved  up  and  down  the  profile  to  select 
datapoints  in  any  order.  They  do  not  have  to  be 
successive  in  order  of  depth. 

\ 

7.  When  the  desired  number  of  datapoints  have  been 
selected,  press  the  "STOP"  softkey.  The  computer 
will  ask,  "DO  YOU  WANT  TO  CHANGE  ANYTHING?" 

8.  If  "Y"  or  "YES"  is  entered,  the  BT  profile  is  again 

displayed.  Any  selected  data  point  may  be  deleted 
by  pressing  the  "DELETE  DATA"  softkey,  at  which 
time  the  computer  asks  "DELETE  DATA  POINT  NO.?". 
Type  in  the  number  of  the  data  point  to  be  deleted 
.  and  press  CONTINUE. 

9.  If  "N"  or  "NO"  is  entered, the  computer  dumps 
the  entire  graphics  display  to  the  printer. 

10.  Press  CONTINUE.  The  computer  now  sorts  selected 
datapoints  by  depth  and  prepares  a  standard  JJXX 
message  which  is  displayed  on  the  CRT. 

11.  Press  CONTINUE  again  and  the  JJXX  message 

is  dumped  to  the  printer  and  printed  below  the  pro¬ 
file  graphics. 

12.  Press  CONTINUE  again  and  the  JJXX  message  is  trans¬ 
ferred  to  the  paper  tape  punch. 
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13.  The  computer  now  asks  for  "NEXT  BT  NO.?"  Enter  the 
desired  next  BT  number  to  be  edited,  press 
CONTINUE,  and  proceed  as  in  steps  5  through  12. 

NOTE:  This  program  allows  any  BT  number  on  the  flight  to  be  selected  in  any  order. 

4. 2. 2. 3. 2  "FASTJDIT"  Program 

The  "FAST_EDIT"  program  is  identical  to  the  "BT_EDIT"  Program  and 
operating  procredures  are  the  same,  except  for  the  following: 


1.  The  computer  initially  asks  only  for  the  flight  number  and 
BT  type.  Editing  automatically  starts  with  the  first  BT  on 
the  flight  and  proceeds  in  sequence  to  the  last  BT. 

2.  Hard  copy  of  edited  profile  and  JJXX  message  is  not 
generated  on  the  system  printer.  The  JJXX  message  is  sent 
immediately  to  the  paper  tape  punch. 

3.  When  editing  of  a  BT  is  completed,  the  computer  does  not  ask 

for  "NEXT  BT  NO?",  but  automatically  proceeds  to  the  next 
BT  in  sequence. 


4.  A  "NEXT  BT"  softkey  is  provided  to  jump  to  the  next  BT  in 
sequence  if  it  is  not  desired  to  edit  the  BT  currently 
being  displayed. 


4. 2. 2. 3.3  "MET  LIST"  Program 


1.  Insert  the  ADAPS  PROGRAM  DISK  in  the  right  hand  drive  and 

close  the  drive  door. 

2.  Press  the  "LOAD"  softkey,  type  in, MET  EDIT,  and  press 

EXECUTE.  This  loads  "MET  EDIT_. 

3.  Press  RUN.  The  computer  wTll  ask  for  the  desired  flight 

number. 

4.  Enter  the  flight  number  and  press  CONTINUE. 


The  computer  will  search  the  tape  for  the  selected  flight  number.  When  the 
flight  number  is  found,  the  computer  will  input  all  meteorological  data  from  that 
flight  and  begin  printing  out  each  successive  data  sample.  Each  sample  is  printed  as 
time,  position,  voltage  at  each  of  8  analog  inputs, and  true  air  speed.  Printing  will 
continue  until  data  is  expended  or  until  the  program  is  stopped. 


4. 2. 2. 3. 4  "50M_DUMP" 

1.  Insert  the  ADAPS  PROGRAM  DISC  into  the  right  hand  drive  and 
close  the  drive  door. 

2.  Press  the  "LOAD"  softkey,  type  in  50M_DUMP  and  press  EXECUTE. 
This  loads  "50M  DUMP". 

3.  The  computer  wiTl  ask  for  a  flight  number. 

4.  Enter  the  desired  flight  number  and  press  CONTINUE. 


The  computer  now  proceeds  with  no  further  input  from  the  operator.  The 
selected  flight  number  is  found  and  data  is  entered  from  the  first  BT  data  record. 
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This  data  is  used  to  display  the  BT  profile  and  the  temperature  and  depth  at  each  50 
meter  increment  of  the  profile.  The  entire  display  is  then  dumped  to  the  system 
printer  for  hard  copy,  and  the  next  BT  data  record  is  accessed.  This  continues 
automatically  until  all  BT  records  are  processed  for  the  flight  number  entered. 

5.0  THEORY  OF  OPERATION 

Except  for  the  Data  Acquisition  Interface  unit  (DAIU),  the  theory  of  operation 
for  each  ADAPS  system  element  is  provided  in  the  manufacturer's  manuals  supplied 
with  the  system.  For  this  reason,  only  the  DAIU  will  be  discussed  with  any  detail  in 
this  section. 

5.1  DAIU  THEORY  OF  OPERATION 

All  data  accessed  from  or  sent  to  (control)  the  DAIU  by  the  System  Controller 
is  routed  through  the  HP  98622A  16-bit  I/O  (GPIO).  This  I/O  is  installed  in  the 
System  Controller,  and  is  configured  as  described  in  section  3.2.  Detailed  informa¬ 
tion  concerning  the  operation  of  the  98622A  I/O  is  contained  in  the  HP  98622A  GPIO 
Interface  installation  Section  of  the  Interfacing  Techniques  Manual  for  the  HP  9836A 
System  Controller.  The  reader  should  thoroughly  review  that  section  of  the  manual  as 
well  as  the  I/O  configuration  information  contained  in  this  document  prior  to 
reading  the  following  theory  of  operation  descriptions. 

Figure  9  provides  a  simplified  illustration  of  the  DAIU  internal  interconnec¬ 
tions.  It  should  be  noted  that  all  DAIU  circuit  boards,  with  the  exception  of  the 
status/ termi nation  card,  are  connected  to  a  common  output  data  bus  and  a  common 
control  and  status  bus.  The  DAIU  is  designed  such  that  any  circuit  board  may  be 
installed  in  any  of  the  twelve  card  slots  in  any  order.  Drawing  no.  SN-S07A 
identifies  the  bussed  connections  available  to  all  twelve  of  the  double  card  slots. 
The  16-bit  output  databus  connections  are  labeled  DI0  through  DI  15.  The  control  and 
status  bus  includes  System  Controller  data  output  lines  DO0  through  D07  which  are 
used  by  the  System  Controller  to  select  specific  circuit  boards  from  which  to  access 
digital  data.  Other  control  and  status  bus  connections  include  handshake  and  control 
signals  for  the  16-bit  interface  and  are  labeled  PCTL,  PFLG,  I/O,  PSTS  PRESET,  EIR, 
CTL0,  CTL1,  STI0  AND  STI1.  The  remaining  connections  on  each  card  slot  are  used  for 
connections  to  back  panel  data  inputs,  connection  to  front  panel  indicators  and 
control  switches  and  for  system  power. 

The  following  sections  will  describe  the  theory  of  operation  of  each  type  of 
circuit  board  installed  in  the  DAIU. 

5.1.1  Signal  Conditioning  Cards 

Refer  to  drawing  number  SN-S03A  for  the  signal  conditioning  card 
circuit  schematic.  The  setting  of  switches  SI  and  S2  determine  which  BT  data  input 
channel  will  be  used  by  the  signal  conditioning  board.  Setting  of  S3  determines 
which  bus  line  the  conditioned  signal  will  be  applied  to.  All  three  switches  must  be 
configured  identically  with  only  one  of  the  4  positions  "on".  - 

The  high  and  low  signal  lines  from  the  selected  BT  channel  are 
applied  to  the  inputs  of  Al,  a  unity  gain,  differential  input  instrumentation  ampli¬ 
fier.  A1  serves  to  isolate  the  incoming  signal  lines  from  circuit  ground  to  prevent 
possible  ground  loops  and  common  mode  noise.  The  output  of  Al  is  applied  to  A2  which 
clamps  the  incoming  signal  amplitude  at  5.1  volts  maximum.  The  output  of  A2  is 
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Figure  9.  Data  Acquisition  Interface  Unit  Block  Diagram 


applied  to  a  bandpass  filter  made  up  of  high  pass  filter  FI  and  low  pass  filter  F2. 
The  3db  passband  of  this  filter  is  approximately  1.1  KHz  to  2.8  KHz.  Comparator  A3 
triggers  on  the  positive  going  slope  of  the  signal  at  a  threshold  voltage  set  by  R6, 
to  produce  a  positive  square  wave  output  of  5  volts  amplitude  at  the  incoming  signal 
frequency.  The  conditioned  signal  is  then  routed  through  switch  S3  to  the  selected 
bus  line  and  to  the  period  counter  circuits. 

5.1.2  Penod  Counter  Card 


Refer  to  drawing  number  SN-S02A  for  the  period  counter  card 
circuit  schematic.  Switches  SI,  G2  and  S3  are  p*vnt  to  configure  the  card  for 
operation  with  one  of  4  possible  BT  data  channels.  All  three  switches  must  be  set 
identically  with  only  one  of  the  four  positions  "on".  Upon  receipt  of  a  peripheral 
control  (PCTL)  low  level  from  the  System  Controller,  the  period  counter  card  gener¬ 
ates  a  peripheral  flag  (PFLG)  high  level  output  to  acknowledge  receipt  of  the  data 
request.  Upon  receipt  of  a  PFLG  high  level,  the  System  Controller  resets  the  PCTL 
line  to  the  high  state.  The  incoming  BT  signal,  which  has  been  pre-conditioned  by 
the  associated  signal  conditioning  card,  is  then  used  to  compute  BT  signal  period  in 
the  form  of  a  16-bit  binary  count  available  at  the  data  bus  (DIQf-DI  15 ) .  Once  the 
period  computation  is  complete,  the  period  counter  card  brings  the  PFLG  line  low 
again,  signaling  the  System  Controller  that  there  is  a  valid  count  on  the  data  bus. 
At  this  time,  the  System  Controller  latches  in  the  period  count  and  stores  it. 


The  above  is  a  general  description  of  the  functional  operation 
of  the  period  counter  card.  What  follows  is  a  detailed  description  of  the 
combinational  logic  used  to  implement  the  functions  described  above.  Refer  to 
reference  signal  points  shown  in  drawing  SN-S02A  and  in  the  Period  Counter  Timinq 
Diagram  shown  in  Figure  10. 


The  selected  BT  data  signal  is  routed  through  buffer  U4  to  the 
clock  input  of  flip-flop  U1A.  U1A,  connected  in  the  toggle  mode,  divides  the 
incoming  signal  frequency  by  two,  thus  providing  output  pulses  at  reference  points 
3)  and  (4)  which  correspond  to  the  incoming  signal  PERIOD.  The  incoming  signal, 

(2),  and  the  inverted  signal  period  pulse  (4)  are  routed  to  U3A  whose  output  is  used 
with  various  sections  of  U6  and  associated  RC  networks  to  produce  reset  and  trigger 
pulses  at  reference  points  (7)  and  (8).  Upon  receipt  of  a  data  request  from  the 
System  Controller  (PCTL  goes  low),  reference  point(5)  is  driven  high  and  the  next 
pulse  at  (7)  is  gated  to  the  output  of  U3B .  This  resets  the  16-bit  counter  made  up 
of  dual  4-bit  counters  U7  and  U8,  in  preparation  for  a  new  period  count,  triggers 
U2B,  setting  (9)  high.  With  (9)  high,  the  next  positive  signal  period  pulse,  (3),  is 
gated  through  U3C  to  U3D.  This  in  turn  gates  the  10  MHz  clock  from  XO-1  into  the’ 
U7-U8  counter,  beginning  the  period  count.  The  count  continues  as  long  as  (3)  is 
high,  resulting  in  a  final  count  proportional  to  the  signal  period.  The  next  pulse 
at  (8)  resets  both  U2B  and  U2A  which  drives  PFLG  low  again,  signaling  the  System 
Controller  that  valid  data  is  available  on  the  bus  at  the  outputs  of  bus  drivers  U9 
and  U10. 


Just  prior  to  requesting  data,  the  system  Controller  sets  control 
bus  lines  DO0  through  D03  to  a  code  which  selects  a  specific  period  counter  card.  U5 
decodes  these  lines  to  produce  a  low  level  on  one  of  its  4  outputs.  This  low  level 
is  transferred  by  switch  SI  (if  properly  set)  to  the  enable  inputs  of  tri state 
buffers  U9,  U10  and  Ull.  This  allows  the  System  Controller  to  send  and  receive  PCTL 
and  PFLG  control  signals  and  access  period  count  data  from  the  selected  card.  The 
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Figure  10.  Period  Counter  Timing  Diagram 
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System  Controller  also  checks  the  BT  signal  status  (STI-0)  at  this  time  to  determine 
whether  or  not  BT  signal  is  being  input  from  the  associated  receiver. 

5.1.3  Navigation  Interface  Card 

Refer  to  drawing  number  SN-S01A.  The  Navigation  Interface  card 
accepts  input  from  either  the  LTN-72  inertial  Navigation  System  or  the  GNS-500  VLF 
Navigation  System,  selects  the  latitude  and  longitute  data  words  from  the  input  and 
provides  this  information  as  a  24-bit  word  for  access  by  the  System  Controller. 

The  VLF  signal  is  applied  to  A4,  a  unity  gain  differential 
instrumentation  amplifier  used  to  isolate  the  signal  and  reduce  common  mode  noise. 

As  shown  in  the  timing  diagram  of  Figure  11,  the  output  of  A4,  (1),  is  applied  to  a 
positive  comparator  A5,  and  negative  compator  A6.  The  output  of  A5,  (2),  is  +5V 
pulses  corresponding  to  each  positive  excursion  of  the  input,  (1).  The  output  of  A6, 
(3),  is  also  +5V  pulses,  but  corresponding  to  each  negative  excursion  of  input  (1). 
(2)  and  (3)  are  applied  to  the  set  and  reset  inputs  of  flip  flop  U6,  to  produce  an 
output,  (4),  which  is  an  NRZ  version  of  the  incoming  RZ  data.  (2)  and  (3)  are  also 
applied  to  U5  resulting  in  a  signal  at  (5)  which  is  the  clock  rate  of  the  incoming 
serial  data  stream.  (5)  is  applied  to  the  input  of  U9A,  half  of  a  dual  one  shot.  C9 
and  R21  have  been  selected  so  that  the  output  pulse  width  of  U9A  is  equal  to  3 
cycles  of  the  input  clock  rate.  The  input  clock  continues  to  re-trigger  U9A  so  that 
its  output,  (6),  remains  high  until  the  input  clock  is  absent  for  more  than  three 
clock  cycles,  a  condition  which  occurs  during  the  sync  gap  period  of  the  input  RZ 
data.  At  this  time,  U9A  output  (6)  goes  low  signifying  the  end  of  a  data  word  (synch 
pulse).  The  three  signals  which  have  been  generated;  NRZ  data  (4),  clock,  (5),  and 
Synch,  (6),  are  applied  to  Data  Selector  U10.  If  VLF  is  selected  at  the  DAIU  front 
panel  these  signals  are  selected  and  used  for  providing  latitude  and  longitude  data. 

As  shown  in  Figure  12,  LTN-72  data  is  provided  to  the  Navigation 
Interface  card  as  three  separate  signals;  NRZ  Data,  clock,  and  synch.  These  inputs 
are  applied  to  Al,  A2,  A3  which  are  unity  gain,  differential  amplifiers  which  serve 
to  isolate  the  incoming  signals  and  reduce  common  mode  noise.  The  output  of  Al,  A2 
and  A3  are  applied  to  non- inverting  buffers  which  act  as  level  shifters  to  convert 
the  high  level  input  to  +5V  logic  levels. 

The  data  signal,  (4),  is  applied  directly  to  U10.  Clock  and 
Synch,  (5)  and  (6)  are  applied  to  U5  which  serves  to  disable  the  clock  input  to  U10 
whenever  the  synch  line  is  low.  The  output  of  U5,  (7),  is  input  to  U9B,  half  of  a 
dual  one  shot,  which  functions  exactly  like  U9A  in  the  VLF  circuits.  That  is,  U9B 
senses  when  the  clock  is  low  for  more  than  three  clock  cycles  and  produces  a  low- 
going  synch  pulse  out,  (8). 

At  this  point,  Data,  Clock  and  Synch  signals  applied  to  the  data 
selector  U10  from  either  the  LTN-72  or  the  VLF  are  identical.  The  position  of  the 
DAIU  front  panel  NAV  SELECT  switch  determines  from  which  Navigation  System  Data, 
Clock  and  Synch  signals  will  be  obtained.  The  selected  Data  and  Clock  are  applied  to 
a  32-bit  shift  register  made  up  of  Ull  through  U14.  The  data  is  shifted  into  the 
shift  register  with  the  clock  providing  the  necessary  shift  pulses.  When  the  synch 
line  goes  low,  indicating  end  of  the  32-bit  word,  the  clock  pulses  are  disabled  and 
data  shifting  terminates,  leaving  the  full  32- bit  word  in  the  shift  register  with 
the  8-bits  of  word  I.D.  residing  in  Ull  and  the  24-bits  of  data  residing  in  U12-U14. 
Occurence  of  the  synch  level  also  enables  the  latitude  and  longitude  I.D.  compara¬ 
tors  U15-U16  and  U17-U18.  If  the  I.D.  word  in  Ull  matches  the  I.D.  code  set  by 
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Figure  11.  Navigation  Interface  Card  -  VLF  Timing  Diagram 
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Figure  12.  Navigation  Interface  Card  -  LTN-72  Timing  Diagram 


either  S1-S2  or  S3-S4,  the  associated  comparator  provides  a  latching  pulse  to  the 
appropriate  data  latches  (either  U19-U21  or  U11-U24).  This  latches  the  24-bits  of 
data  residing  in  shift  registers  U12-U 14  into  the  appropriate  set  of  latches,  thus 
updating  the  data  available  for  access  by  the  System  Controller. 

The  System  Controller  receives  the  24  bit  latitude  or  longitude 
data  as  two  sequential  16-bit  words  with  the  upper  8  bits  always  zero.  To  access 
data,  the  System  Controller  first  sets  control  lines  DO0-DO3  to  the  select  code  for 
the  lower  16-bits  of  latitude  data.  This  provides  an  enable  pulse  to  U20  and  U21 
which  put  this  data  onto  the  data  bus  DI0-DI15.  The  System  Controller  then  generates 
a  PCTL  data  request  which  is  inverted  and  sent  back  to  the  System  Controller  as  a 
PFLG  pulse  allowing  the  System  Controller  to  immediately  latch  and  store  the  data  on 
the  data  bus.  The  System  Controller  then  changes  the  control  code  on  DO0-DO3  to 
enable  U19  and  U26  (all  zero  data).  This  puts  the  upper  16-bits  of  latitide  data 
onto  the  data  bus  DI0-DI15.  Once  again  the  System  Controller  generates  PCTL, 
receives  PFLG  and  stores  the  data.  This  process  is  repeated  for  accessing  data  using 
different  control  codes  and  accessing  the  lower  16  bits  from  U23,  U24,  and  the  upper 
16  bits  from  U22,  U26.  It  should  be  noted  that  U26  is  enabled  any  time  that  either 
U19  or  1)22  are  enabled  and  is  used  to  provide  all  zeros  in  the  upper  8  bits  of  the 
second  16-bit  word  accessed. 

Since  control  line  D03  is  always  low  any  time  that  the  System 
Controller  is  accessing  navigation  data,  it  is  applied  to  U25  so  that  the  latching 
signals  from  comparators  U15-U16  and  U17-U18  are  disabled  when  data  is  being 
accessed,  and  prevents  new  data  from  being  latched  during  this  time. 

5.1.4  Meteorological  Data  Card 

Refer  to  drawing  SN-S05A  for  the  Meteorological  Data  Card 
Schematic  diagram.  The  eight  0-5V  analog  inputs  which  enter  through  connectors  on 
the  DAIU  backpanel  are  each  routed  to  individual  unity  gain,  differential  amplifiers 
on  the  Meteorologial  Data  Card.  These  amplifiers,  A1-A8,  serve  to  buffer  each  in¬ 
coming  analog  signal  and  route  it  back  out  to  analog  output  connectors  on  the  DAIU 
back  panel  for  monitoring  or  recording.  Each  analog  signal  is  also  connected  to  one 
of  the  eight  differential  channel  inputs  of  a  DATEL  HDAS-8  Data  Acquisition  System 
Module  (See  the  manufacturer's  data  on  this  module  contained  in  Appendix  A,  for 
further  detail  on  module  operation.) 

Upon  command  of  the  System  Controller,  the  DAS  module  sequen¬ 
tially  selects  each  analog  channel  and  converts  its  analog  voltage  to  a  12-bit 
binary  word  available  at  DI0-DI11  for  System  Controller  access. 

What  follows  is  a  description  of  the  I/O  control  logic  operation 
necessary  to  implement  the  above  mentioned  functions  of  the  Meteorological  Data 
Card.  Refer  to  the  logic  timing  diagram  shown  in  Figure  13. 

Prior  to  requesting  data  from  the  Meteorological  Data  Card,  the 
System  Controller  sets  control  bus  line  DO  4  low  which  enables  the  internal  tri¬ 
state  buffers  in  the  DAS  module  and  tri- state  buffer  Ul.  This  allows  the  System 
Controller  to  access  the  digital  data  from  the  DAS  module  and  to  send  and  receive 
I/O  control  signals  through  Ul. 

The  System  Controller  next  sends  a  peripheral  reset  pulse 
(PRESET),  (1),  to  the  trigger  inputs  of  one  shots  U2A  and  U2B.  This  drives  CLEAR 
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Figure  13 .  Timing  Diagram  -  Meteorological  Sensor  Card  I/O  Control  Logic 


(2),  at  the  DAS  module  low,  while  providing  the  necessary  high  to  low  transition  at 
STROBE  (5),  to  initiate  acquisition  and  conversion  of  the  first  analog  signal. 
Application  of  STROBE  pulse  while  holding  CLEAR  in  the  low  state  resets  the  MUX 
address  to  channel  0,  so  that  the  first  analog  signal  which  is  acquired  and 
converted  is  channel  0.  The  output  of  U2B,  (3),  also  serves  to  provide  a  low  pulse 
at  (7),  setting  the  output  of  flip-flop  U5  high  and  resulting  in  a  high  level  at  the 
peripheral  flag  (PFLG)  output  (8).  Immediately  after  sending  the  PRESET  pulse,  the 
Systems  Controller,  under  program  control,  checks  the  state  of  the  PFLG  line.  A 
peripheral  control  (PCTL)  data  request  is  not  sent  until  the  PFLG  line, (8),  goes 
low.  When  conversion  of  the  current  channel  is  complete  the  DAS  module  generates  a 
low  to  high  transition  at  end  of  conversion  (EOC)  (6),  which  triggers  U5,  setting 
PFLG,  (8),  low.  The  System  Controller  then  generates  PCTL,  (4),  which  initiates 
acquisition  of  the  next  channel,  sets  U5,  and  brings  PFLG  high  again.  When  PFLG, 

(8),  goes  high  again  the  System  Controller  drives  PCTL,  (4),  low  and  takes  the  data 
on  DI0-D11.  U1  assures  that  DI12-DI15  are  always  low. 

The  process  is  repeated  until  all  eight  analog  channels  have  been 
acquired,  converted  and  accessed  by  the  System  Controller. 

5.1.5  True  Air  Speed  Synchro  to  Digital  Converter  Card  (TAS  S/D 

Converter  Card) 

Refer  to  drawing  number  SN-S06A  for  the  TAS  S/D  Converter  Card 

schematic  diagram. 

The  TAS  S/D  Converter  Card  provides  continuous  conversion  of  true 
air  speed  synchro  data  to  a  12-bit  digital  word  which,  upon  command  of  the  System 
Controller,  is  placed  upon  the  Data  Bus  for  access  by  the  System  Controller.  See  the 
manufacturers  data  on  the  DDC  SDC-19102-302  Synchro/Digital  Converter  contained  in 
Appendix  A  for  detailed  information  on  the  theory  of  operation  of  this  module. 

Prior  to  requesting  data  from  the  TAS  S/D  Converter  Card,  the 

System  Controller  drives  control  bus  line  DO-5  to  the  low  state  enabling  tri- state 
buffers  in  the  S/D  module  to  place  the  converted  data  on  databus  lines  DI-0  through 

Dill.  This  level  also  enables  U3  which  allows  the  System  Controller  to  send  and 

receive  peripheral  control  (PCTL)  and  peripheral  flag  (PFLG)  signals  to  and  from  the 
S/D  module  for  controlling  the  transfer  of  data.  U3  also  sets  data  bus  lines 
DI12-DI15  to  the  low  state. 

The  CB  (count)  output  of  the  S/D  module  is  high  when  updating  the 
converted  synchro  signal.  This  provides  a  high  level  at  PFLG  which  inhibits  the 
System  Controller  from  generating  a  PCTL  data  request  while  the  S/D  module  is 
converting  synchro  data  (This  time  period  is  7  u  sec  maximum).  When  CB  goes  low, 
driving  PFLG  low,  the  System  Controller  drives  PCTL  low  inhibiting  the  S/D  module 
from  converting  while  data  is  being  taken.  The  PCTL  level,  inverted,  also  drives  the 
PFLG  line  high  again  acknowledging  the  data  request.  When  the  System  Controller  sees 
PFLG  go  high,  PCTL  is  reset  to  high  level  driving  PFLG  low  and  signaling  the  System 
Controller  that  valid  data  is  on  the  data  bus.  The  System  Controller  then  accepts 
the  data  and  stores  it.  This  procedure  repeats  each  time  the  System  Controller 
accesses  the  TAS  S/D  Converter  Card. 
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5.1.6  Status/Termi nation  Card 


Refer  to  drawing  number  SN-S04A  for  the  Status/Termination  Card 

schematic  diagram. 


The  Status/Termination  Card  checks  the  output  of  each  of  the  AXBT 
channel  Signal  Conditioning  Cards  to  determine  if  a  valid  BT  signal  is  present,  and, 
if  so,  generates  a  status  level  for  access  by  the  System  Controller.  This  card  also 
provides  proper  termination  of  all  control  bus  lines  coming  from  the  System  Control¬ 
ler.  This  termination  is  required  for  proper  operation,  since  the  System  Controller 
16-bit  I/O  provides  open  collector  outputs  on  all  control  lines. 

U1  and  U2  are  dual  one-shots  whose  output  pulse  period  is  set 
such  that  an  incoming  signal  whose  period  is  less  than  the  one-shot  output  period 
will  continuously  retrigger  the  one-shot  resulting  in  a  continuous  high  level  at  its 
output.  This  indicates  to  the  System  Controller  that  a  BT  signal  is  available  on 
that  channel.  If  there  is  no  signal  being  input  to  the  BT  channel,  or  if  the  incom¬ 
ing  signal  is  outside  the  passband  of  the  Signal  Conditioning  Card  bandpass  filter 
(Invalid)  then  no  signal  will  appear  to  retrigger  the  associated  one-shot  and  its 
output  will  be  low,  indicating  to  the  System  Controller  that  no  valid  BT  signal  is 
present.  The  System  Controller  checks  this  status  line  prior  to  each  sample  of  a  BT 
channel.  (See  section  5.1.2  Period  Counter  Card). 

6.0  SYSTEM  MAINTENANCE 

6.1  PREVENTIVE  MAINTENANCE 

Although  no  formal  schedule  of  preventive  maintenance  procedures  is  required, 
the  system  should  be  periodically  inspected  for  loose  connectors  and  printed  circuit 
cards,  cable  chafing  and/or  deterioration,  and  for  any  foreign  material  which  may  be 
blocking  cooling  air  intakes. 

In  addition,  a  periodic  operational  checkout  should  be  performed  to  verify 
that  the  AXBT  and  analog  data  circuits  of  the  DAIU  are  performing  within 
specified  accuracy  limits. 

Accuracy  checks  may  be  performed  by  applying  known  inputs  to  the  AXBT, 

Analog,  Navigation  and  True  Airspeed  circuits  and  using  the  "SYS  CHECK"  program  (see 
section  4. 2. 2.1)  to  observe  the  signal  values  obtained  by  the  DATU.  Values  displayed 
by  the  "SYS_CHEK"  program  should  be  within  the  accuracy  specifications  listed  in 
section  1.3,  item  9.  The  following  sections  provide  instructions  for  accuracy 
checking  and  adjustment  of  each  of  the  DAIU  data  circuits. 

6.1.1  Navigation  Data  Accuracy  Check 


The  navigation  inputs  should  be  set  to  a  known  position  by  manually 
setting  both  LTN-72  systems  and  the  GNS-500  system  to  a  known  position.  If  possible, 
each  system  should  be  set  to  a  different  position. 

The  DAIU  should  be  switched  alternately  to  VLF  and  INS  using  the  front 
panel  NAV  SELECT  switch.  In  each  switch  position,  the  position  displayed  on  the  CRT 
should  agree  with  that  shown  on  the  Navigator's  station  display  to  within  ±0.1 
minute  on  both  latitude  and  longitude. 
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With  the  DAIU  WAV  SELECT  switch  in  INS  position,  cycle  the  butler  switch 
at  the  navigator's  station  to  select  the  alternate  LTN-72  system  and  check  the  dis¬ 
played  position  as  described  above. 

If  the  displayed  position  is  not  within  accuracy  limits,  take  corrective 
maintenance  action  (see  section  6.2).  No  calibration  adjustments  are  available  in 
the  Navigation  Interface  circuit. 

6.1.2  Analog  Circuits  Accuracy  Check 


All  eight  analog  inputs  should  be  set  to  a  known  voltage  by  applying  an 
accurate  (accurate  to  ±.0005  volts)  source  of  voltage  to  the  analog  input 
connectors  on  the  back  of  the  DAIU.  Ideally,  accuracy  should  be  checked  at  0.0 
volts,  2.5  volts  and  5.0  volts  input.  The  voltage  displayed  on  the  CRT  for  each 
analog  channel  by  the  "SYS_CHEK"  program  should  be  within  ± 0.005V  of  the  known 
input.  Each  of  the  analog  outputs  at  the  back  of  the  DAIU  should  be  checked  with  an 
accurate  volt  meter  and  should  also  be  within  ±0.005  volts  of  the  known  input. 

If  voltages  displayed  on  the  CRT  are  inaccurate,  the  input  connector  for 

analog  channel  1  should  be  shorted  and  connected  to  the  circuit  ground  terminal  at 

the  back  of  the  DAIU.  This  will  apply  an  input  of  zero  volts.  The  offset  voltage 
adjustment  on  the  Meteorological  Data  Card  should  now  be  adjusted  to  obtain  a 
displayed  channel  1  voltage  of  0.0  volts  ±0.001  volt. 

The  channel  1  input  connector  should  now  be  connected  to  an  accurate  5.0 

VDC  source  (the  low  side  of  the  source  should  be  grounded  to  circuit  ground 

terminal).  The  gain  adjustment  on  the  Meteorological  Data  Card  should  now  be  ad¬ 
justed  to  obtain  a  displayed  channel  1  voltage  of  5.0  volts  ±0.002  volts.  Recheck 
accuracy  of  all  channels. 

If  the  above  adjustments  cannot  be  made  or  do  not  result  in  accurate 
readings  on  all  channels,  the  Meteorological  Data  Card  may  be  defective  and  should 
be  replaced. 


The  only  adjustment  for  the  analog  outputs  is  the  offset  voltage  adjust¬ 
ment  at  each  buffer  amplifier  A1-A8  (see  drawing  SN-S05A).  If  any  of  the  analog 
outputs  are  inaccurate,  the  offset  voltage  adjust  for  that  channel  should  be  set  by 
grounding  the  input  as  described  above  and  adjusting  the  offset  pot  for  that  channel 
to  obtain  a  zero  voltage  reading  at  the  associated  analog  output  connector.  It 
should  be  noted  that  the  analog  outputs  are  only  for  external  monitoring  of  the 
input  signals  and  the  associated  buffer  amplifiers  do  not  affect  in  any  way  the 
accuracy  of  the  voltage  seen  by  the  System  Controller. 

6.1.3  True  Airspeed  Accuracy  Check 


Accuracy  check  of  the  true  airspeed  circuits  should  ideally  be  done 
while  the  aircraft  is  in  flight,  since  application  of  simulated  true  airspeed 
synchro  signals  in  extremely  difficult.  There  are  no  calibration  adjustments  on  the 
true  airspeed  circuits.  Therefore,  if  displayed  readings  do  not  agree  with  those 
displayed  at  the  navigator's  station  within  ±1.0  knot,  a  defective  TAS  card  should 
be  suspected. 
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6.1.4  AXBT  Circuits  Accuracy  Check 


The  AXBT  checkout  portion  of  the  "SYS  CHEK"  program  displays  temperature 
and  frequency  for  each  AXBT  channel.  An  accurate  frequency  source  should  be  used  to 
supply  simulated  AXBT  signals  to  each  of  the  AXBT  channels.  This  source  should 
ideally  modulate  a  RF  generator  set  to  the  channel  frequency  of  the  associated 
receivers.  The  frequency  signal  displayed  by  the  CRT  should  agree  with  the  known 
modulation  frequency  source  to  within  ±0.5  Hz.  No  calibration  adjustment  is 
available  for  the  AXBT  circuits.  If  displayed  frequency  is  inaccurate,  a  defective 
signal  conditioning  card  or  period  counter  card  for  the  inaccurate  channel  must  be 
suspected. 


6.2  CORRECTIVE  MAINTENANCE 

Most  system  malfunctions  can  be  isolated  to  the  subsystem  level  (DAIU,  printer 
etc.)  by  utilizing  the  system  checkout  software  provided. 

Once  the  malfunction  has  been  isolated  to  the  subsystem  level,  information  pro¬ 
vided  in  the  following  sections  may  be  used  to  further  identify  and  correct  the 
problem. 

6.2.1  DAIU  Malfunctions 

DAIU  malfunctions  can  usually  be  isolated  to  the  card  level  by  utilizing 
the  "SYS-CHEK"  program.  (See  section  4.2.2)  This  program  allows  individual  checking 
of  the  BT  data  interface.  Navigation  Interface,  Analog  data  interface  and  true 
airspeed  interface. 

Once  the  problem  is  isolated  to  card  level  (i.e.  BT  interface,  channel 
1),  the  first  step  should  be  to  check  the  external  inputs  to  assure  that  the  proper 
input  is  present.  Reference  should  be  made  to  the  Theory  of  Operation,  section  5.0 
to  determine  what  signal  should  be  present.  If  the  proper  input  signal  is  present 
spare  cards  should  be  properly  configured  and  substituted  for  the  suspected  defec¬ 
tive  cards  (i.e.  BT  Analog  Signal  Conditioning  Card  and  period  Counter  Card).  This 
should  correct  the  problem,  and  the  defective  cards  can  later  be  repaired. 

If  SYS-CHEK  indicates  that  none  of  the  DAIU  interface  cards  are  re¬ 
sponding,  the  problem  may  be  due  to  either  a  defective  DAIU  power  supply  or  a 
defective  HP  98622A  16-bit  I/O.  If  a  defective  I/O  is  suspected  refer  to  the  HP 
manuals  for  maintenance  procedures. 

To  check  the  DAIU  Power  Supplies  use  a  voltmeter  to  test  voltages  at  the 
output  terminals  of  each  supply  (See  drawing  SN-S08A).  If  a  defective  power  supply 
is  found  it  should  be  removed  and  replaced  with  a  spare  unit.  Figure  14  shows  how  to 
disassemble  the  bottom  cover  of  the  DAIU  to  remove  and  replace  the  power  supplies. 

CAUTION:  When  replacing  power  supplies  pay  very  close  attention  to  polarity  and 
wire  color  codes. 

Repair  of  defective  DAIU  cards  can  be  accomplished  using  the  Theory  of 
Operation,  Section  5.0  and  associated  timing  diagrams  and  schematic  diagrams. 


39 


13313S 

■US  AflN 


1 


T 


Figure  14.  AD  APS  Computer  Interface  Unit  Disassembly  Procedures 
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6.2.2  Hewlett-Packard  Subsystem  Malfunctions 

In  the  event  of  a  malfunction  of  the  HP  9836A  System  Controller  its 
associated  HP  98622A  16-bit  interfaces  or  the  HP  2673A  printer  or  HP  9884  paper  tape 
punch,  refer  to  the  corrective  maintenance  information  contained  in  the  appropriate 
Hewlett-Packard  manuals  provided  with  ADAPS. 

If  satisfactory  correction  of  the  problem  is  not  obtained,  contact  an 
area  Hewlett-Packard  representative  for  repairs  or  consultation. 

6.2.3  Dylon  Recording  System  Malfunction 

The  Dylon  Model  1015B  controller  and  tape  transport  system  are  provided 
with  a  comprehensive  operation  and  service  manual.  In  the  event  of  failure  refer  to 
these  manuals  for  user  seviceable  maintenance  and  troubleshooting  procedures.  If 
satisfactory  results  are  not  obtained,  contact  the  Dylon  Corporation. 
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7.0  SOFTWARE  PROGRAMS 


"BT  DATA" 


10  OPTION  BASE  1 

20  INTEGER  Bt.  Type. Flight .G< 1  :12480).Bt!  ,  Bt'2 ,  Bt3  ,  Control .  Month  ,  D 
ay  ,  Year 

30  FOR  1=1  TO  40 

40  PRINT  TABXY (26,8);"  DATA  ACQUISITION  PROGRAM  " 

50  PRINT  TABXY (1  +  18,8) : "*"  ; 

60  NEXT  I 
70  PRINT 

80  FOR  1=1  TO  10 

90  PRINT  TABXY (19,1+8) ;  : 

100  FOR  J=1  TO  38  \ 

110  PRINT  "  "{ 

120  NEXT  J  • 

130  PRINT  "*" 

140  NEXT  I 

150  FOR  1=1  TO  40 

160  PRINT  TABXY< 1  +  18.19); "*"  ; 

170  NEXT  I 
180  PRINT 

190  PRINT  TABXY(28 ,12):"  ENTER  MONTH  (MM)  AND  " 

200  PRINT  TABXY <26 ,13) : "  PRESS  CONTINUE 
210  INPUT  Month 

220  PRINT  TABXY<28 , 1 2) :  "  ENTER  DAY  < DD)  AND 
230  PRINT  TABXY<26. 13) PRESS  CONTINUE 
240  INPUT  Day 

250  PRINT  TABXY(28, 12) ENTER  YEAR  < YY)  AND 
260  PRINT  TABXY<26 ,13) PRESS  CONTINUE 
270  INPUT  Year 
280  PRINT  TABXY (0,1): 

290  PRINT  USING  "AAAAA .2X , ZZ , 1 X , ZZ . 1 X , ZZ" ; "DATE Month .Day , Year 
300  PRINT  TABXY <28 .12); "ENTER  FLIGHT  NUMBER  AND" 

310  PRINT  TABXY<26, 13) PRESS  CONTINUE 
320  INPUT  Flight 

330  PRINT  TABXY (0,2); "FLIGHT  NUMBER:": Flight;" 

340  PRINT  TABXY (27 .12); "ENTER  FIRST  BT  NUMBER  AND" 

350  PRINT  TABXY(26 .13) ; "  PRESS  CONTINUE 
360  INPUT  Bt 

370  PRINT  TABXY<0 ,3) ; "FIRST  BT  NUMBER :"; Bt ; " 

380  PRINT  TABXY<26 ,12) ; "  ENTER  BT  TYPE 

390  PRINT  TABXY <26 , 1 3) : "( 1 = SHALLOW , 2 = DEEP ,3= MIXED ) " 

400  PRINT  TABXY<28 ,14) ; "  AND  PRESS  CONTINUE 

410  INPUT  Type 

420  IF  Type= 1  THEN  470 

430  IF  TyPe=2  THEN  490 

440  IF  Type=3  THEN  510 

450  BEEP  1000,  .5 

460  GOTO  380 

470  PRINT  TABXY (0,4) ; "BT  TYPE:  'SHALLOW'" 


480  GOTO  520 

490  PRINT  TABXY (0.4); "BT  TYPE:  'DEEP' 

500  GOTO  520 

510  PRINT  TABXY<0,4) :"BT  TYPE:  'MIXED'  " 

520  PRINT  TABXY<28 .14) ; " 

530  BEEP  1000, .5 

540  PRINT  TABXY (27,12);"  ALL  DISPLAYED  INFO  OK?? 
550  PRINT  TABXY<26 .13) ; " 


5G0  INPUT  InfoS 

570  IF  Inf o$="Y"  OR  Inf o$-”YES"  THEN  610 
580  IF  Inf o$="N"  OR  Info$="NO"  THEN  190 
590  GOTO  530 

610  PRINT  TABXY <30 .11);" 


620  PRINT  TABXY <26,12) 


'WILL  THIS  BE  A  NEW  TAPE? 


630  PRINT  TABXY<26 ,13):" 

640  PRINT  TABXY<24 ,15);" 

650  INPUT  TapeS 

660  IF  TaPe$=,,Y"  OR  Tape$=" YES"  THEN  790 
670  IF  Tape$="N"  OR  Tape$="NO"  THEN  700 
680  BEEP  1000.  .5 


690  GOTO  620 

700  OUTPUT  70401 ;"RW" 

710  GOSUB  Reuind_fin 

720  OUTPUT  70401 ;"SF32000" 

730  GOSUB  Com_ready 

740  ENTER  70403;P1 ,P2 

750  IF  BIT <P1 ,2)=0  THEN  740 

760  GOSUB  Com_ready 

770  OUTPUT  70401 :"SF1 ,1" 

780  GOTO  930 


i « 


h 


790  PRINT  TABXY<30 ,11); "NEW  TAPE  SELECTED" 

800  PRINT  TABXY<26 , 12) ; "ALL  PREVIOUS  DATA  WILL  BE” 

810  PRINT  TABXY<26 ,13);"  DESTROYED!!! 

820  BEEP  1  000,  .5 

830  PRINT  TABXY <24,15); CHR$< 131); "ARE  YOU  SURE  ITS  A  NEW  TAPE??" 
; CHR$< 1 28) 

840  INPUT  TapeS 

850  IF  Tape$="Y"  OR  Tape$="YES"  THEN  890 

860  IF  Tape$="N”  OR  Tape$="NO”  THEN  610 

870  BEEP  1000,  .5 

880  GOTO  790 

890  OUTPUT  70401 ;"RW" 

900  GOSUB  Rewind_fin 
910  OUTPUT  70401 ;"WF" 

920  GOSUB  Com_ready 

930  OUTPUT  70401 ; "ED, 12.0; WRI" 

940  OUTPUT  70402  USING  , W" ; Non th , Day . Year . FI ight , Type , Bt 
950  GOSUB  Com_ready 


960  OUTPUT  7040 1 ; "ED , 1 0576 , 0” 

970  OUTPUT  2  USING  "# . B" ;255 . 75 
980  GRAPHICS  ON 
990  GINIT 

1000  VIEWPORT  0,131 ,8.100 
1010  CSIZE  3.5, .6 
1020  OFF  KEY 

1030  ASSIGN  @Path6  TO  "GRID800" 

1040  ASSIGN  @Path7  TO  "GRID400" 

1050  IF  TyPe=1  THEN  1120 
1060  ENTER  @Path6;G<*> 

1070  Max  1=5288 
1080  Max2=5289 
1090  Bt_no=74 

1100  WINDOW  -7.105,-810,120 

1110  GOTO  1180 

1120  ENTER  @Path7;G<*> 

1130  Max  1=2648 
1140  Max2=2649 
1150  Po  inter=5294 
1160  Bt_no=37 

1170  WINDOW  -7.105,-405,60 
1180  GLOAD  GO) 

1190  LINE  TYPE  1 
1200  INTEGER  I.J.X 
1210  J=8 

1220  DIM  Depth<5288) 

1230  FOR  U=0  TO  528  STEP  .1 

1240  Depth < J) =- 1 . 5926*U 

1250  J= J+1 

1260  NEXT  U 

1270  Laimch_f 1 g  1  =  0 

1300  Plotl =9 

1310  Plot2=9 

1320  Plot3=9 

1330  Sabi =0 

1340  Sab2=0 

1350  Sub3=0 

1360  Start1=0 

1370  Start2=0 

1380  Start.3=0 

1390  Coant  1=0 

1400  Coant2=0 

1410  Coant3=0 

1420  Met_id=7000 

1430  MOVE  0,0 

1440  INTEGER  A<1:5288>  BUFFER ,B< 1 :5288)  BUFFER , C< 1 : 5288)  BUFFER, 
M( 1 ; 30000 )  BUFFER 


1450  DIM  D(5289) ,E<5289) ,F<5289) 

1460  ASSIGN  @Path1  TO  BUFFER  A<*>  ;WORD 

1470  ASSIGN  @Path2  TO  BUFFER  B<*);WORD 

1480  ASSIGN  @Path3  TO  BUFFER  C<*>;WORD 

1490  ASSIGN  @Path4  TO  12: WORD 

1500  ASSIGN  @Path5  TO  70402 

1510  ASSIGN  @Path6  TO  BUFFER  M<*>;WORD 

1520  MAT  M=  (0) 

1530  OUTPUT  ®Path6  USING  "* , W" ;Met_id 
1540  MAT  A=  (0) 

1550  MAT  B=  (0) 

1560  MAT  C=  (0) 

1570  Sa/nple1=9 
1580  Sample2=9 
1590  Sample3=9 
1600  BEEP  1000 , .5 

1610  ON  KEY  0  LABEL  "LAUNCH* 1"  GOSUB  Launch 1 

1620  ON  KEY  2  LABEL  "LAUNCH*2"  GOSUB  Launch2 

1630  ON  KEY  4  LABEL  "LAUNCH*3"  GOSUB  Launch3 

1640  ON  KEY  5  LABEL  "/ABORT  BT*1"  GOSUB  No_key 

1650  ON  KEY  15  GOSUB  Abort  1 

1660  ON  KEY  7  LABEL  "/ABORT  BT*2"  GOSUB  No_key 
1670  ON  KEY  17  GOSUB  Abort2 

1680  ON  KEY  9  LABEL  "/ABORT  BT*3"  GOSUB  No_key 
1690  ON  KEY  19  GOSUB  Abort3 

1700  ON  KEY  8  LABEL  "/END  SURVEY"  GOSUB  No_key 
1710  ON  KEY  18  GOTO  Terminate 

1720  ON  KEY  1  GOSUB  Nojcey 

1721  ON  KEY  3  GOSUB  No_key 

1722  ON  KEY  6  GOSUB  No_key 
1730  CONTROL  12:32 

1740  GOSUB  Metdata 
1750  ON  CYCLE  .1,15  GOSUB  Btdata 
1760  IF  Samp  lei >Max  1  THEN  Transferl 
1770  IF  Sample2>Max1  THEN  Transfer2 

1780  IF  Sample3>Max1  THEN  Transfers 

1781  IF  Rstrtl =1  THEN  GOSUB  Restartl 

1782  IF  Rstr  1 2  =  1  THEN  GOSUB  Res  tar t2 

1783  IF  Rstrt3=1  THEN  GOSUB  Restart3 
1790  GOTO  1760 

1800  ! 

1810  Btdata:  LINE  TYPE  1 

1820  IF  Star tl =0  OR  Sample1>Max1  THEM  2120 

1830  CONTROL  12,3:15 

1840  STATUS  12,5;Stio1 

1850  IF  BIT (St iol , 0 )  THEN  2090 

1860  ON  TIMEOUT  12,. 005  GOTO  1900 

1870  ENTER  @Path4  USING  "* , W" ; ACSamplel > 


1880  IF  A<Sample1 > >6945  OR  A<Sample1 ><3700  THEN  1900 
1890  GOTO  1920 
1900  D(Sample1 ) =-5 
1910  GOTO  1930 

1920  D ( Samp lei )  =  <  < 1 /<A<Sample1 )*1 . E-7 ) ) - 1 440 ) /36 
1930  IF  Samplel  =9  THEN  1950 
1940  Subl = 1 0 

1950  IF  Samplel =Plot  1  THEN  1970 
1960  GOTO  2020 

1970  IF  DCSamplel )=-5  OR  D<Sample1 -Subl >=-5  THEN  2010 
1980  MOVE  D< Samp lei -Subl ), Depth (Samp lei -Subl ) 

1990  PEN  1 

2000  DRAW  D(Sample1 > ,Depth(Sample1 ) 

2010  P lot  1 =P lot  1 +1 0 
2020  Samplel =Sample1 + 1 
2030  GOTO  2120 
2040  BEEP  1000. .5 
2050  Start1=0 
2060  STATUS  12, 3; Status 

2070  PRINT  TABXY< 1 , 12) ; "INTERFACE  DOWN! ",  Status .Control 

2080  GOTO  2120 

2090  IF  Samplel =9  THEN  2120 

2100  IF  Samplel > 1 9  THEN  1900 

21 1 0  Rstrtl = 1 

2120  IF  Star t2=0  OR  Sample2>Max1  THEN  2410 

2130  CONTROL  12.3:14 

2140  STATUS  12,5;Stio2 

2150  IF  BIT <Stio2 . 0)  THEN  2380 

2160  ON  TIMEOUT  12.. 005  GOTO  2200 

2170  ENTER  @Path4  USING  ”# , WM ; B<Sample2) 

2180  IF  B ( Samp le2>> 6945  OR  B<Sample2) <3700  THEN  2200 
2190  GOTO  2220 
2200  E<Sample2)=0 
2210  GOTO  2230 

2220  E<Sample2)=( < 1 /<B<Sample2>*1 . E-7 > > - 1 440 ) /36 
2230  IF  Samp le2=9  THEN  2250 
2240  Sub2=1 0 

2250  IF  Sample2=Plot2  THEN  2270 
2260  GOTO  2320 

2270  IF  E(Sample2)=0  OR  E<Sample2-Sub2) -0  THEN  2310 
2280  MOVE  <E(Sample2-Sub2)+35) .Depth(Sample2~Sub2) 

2290  PEN  1 

2300  DRAW  (E<Sample2>+35> .Depth<Sample2) 

2310  Plot2=Plot2+1 0 
2320  Sample2=Sample2+1 
2330  GOTO  2410 
2340  BEEP  1  000,  .5 
2350  Start2=Q 


2360  PRINT  TABXY(30 ,12); "INTERFACE  DOWN!" 

2370  GOTO  2410 
2380  IF  Sample2=9  THEN  24t0 
2390  IF  Sample2>  1 9  THEN  2200 
2400  Rstrt2=1 

2410  IF  Star t3=0  OR  Sampie3>Max1  THEN  2700 

2420  CONTROL  12,3:13 

2430  STATUS  12,5;Stio3 

2440  IF  BIT <Stio3 ,  0)  THEM  2670 

2450  ON  TIMEOUT  12,. 005  GOTO  2490 

2460  ENTER  @Path4  USING  , W"  ;C(Sajnple3) 

2470  IF  C<Sample3)>6945  OR  C < Samp le3> <3700  THEN  2490 
2480  GOTO  2510 
2490  F(Sample3)=Q 
2500  GOTO  2520 

2510  F<Sample3)  =  <  ( 1  /(C.(Sample3>*  I  .E-7)  >-  1 440)/36 
2520  IF  Sample3=9  THEN  2540 
2530  Sub3= 1 0 

2540  IF  Sample3=Plot3  THEN  2560 
2550  GOTO  2610 

2560  IF  F(Sample3)=0  OR  F(Sample3-Sub3>=0  THEN  2600 
2570  MOVE  ( F (Samp  1 e3~Sub3 ) +70 ), Dep th ( Samp Ie3-Sub3 ) 
2580  PEN  1 

2590  DRAW  (F(Sample3)+70) ,Depth(Sampie3) 

2600  Plot3=Plot3+1 0 
2610  Sample3=Sampl e3+ 1 
2620  GOTO  2700 
2630  BEEP  1  000,  .5 
2640  Start3=0 

2650  PRINT  TABXY (65,12); "INTERFACE  DOWN!" 

2660  GOTO  2700 
2670  IF  Sample3=9  THEN  2700 
2680  IF  Sample3>  1 9  THEM  2490 
2690  Rstrt3=1 

2700  IF  XI =0  THEN  2720 

2701  PEN  -t 

2710  MOVE  D(X1 -1 0) , Depth (XI -10) 

2720  IF  X2=0  THEN  2740 

2721  PEN  -1 

2730  MOVE  (E(X2-t 0>+35> , Depth (X2- 1 0 ) 

2740  IF  X3=0  THEN  2760 

2741  PEN  -1 

2750  MOVE  (F(X3-10>+70) ,Depth(X3-10> 

2760  IF  X4=0  THEN  2790 
2770  MOVE  0 , X4 
2780  LINE  TYPE  3 
2790  CONTROL  12,3;Control 
2800  RETURN 


2810 

t 

2820 

» 

2830 

Abort  1 : 

X1  =  t  1 

2840 

Star tl =0 

2850 

FOR  XI = 13  TO  Samplel  STEP  10 

2860 

IF  D < X 1 >  =  0  OR  D(X1 -1 0)=0  THEN 

2900 

2870 

MOVE  D<XT— 10) ,Depth<X1 -10) 

2880 

PEN  -1 

2890 

DRAW  D < X 1 ) f Depth(X1 ) 

2900 

NEXT  XI 

2910 

X 1  =0 

2930 

PEN  1 

2940 

MOVE  0,0 

2950 

DRAW  35.0 

2960 

FOR  X4=-50  TO  -800  STEP  -50 

2970 

MOVE  0.X4 

2980 

LINE  TYPE  3 

2990 

DRAW  1 05 ,X4 

• 

3000 

NEXT  X4 

3010 

X4  =  0 

3020 

Samp  lei  =9 

3030 

Plotl =9 

3040 

Subl =0 

3041 

IF  Rstrtl =1  THEN  3051 

3050 

MAT  A=  (0) 

3051 

Rstrtl =0 

3060 

PEN  -1 

3070 

MOVE  5 . Bt  no 

3080 

LABEL  Bt 1 

3081 

MOVE  19, Bt  no 

3082 

LABEL  T 1  $ 

3090 

PEN  1 

3091 

IF  Lau.nch_f Igl  =0  THEN  3100 

3092 

G0SUB  Launchl 

3093 

GOTO  3110 

3100 

ON  KEY  0  LABEL  "LAUNCH^"  GOSUB  Launchl 

3110 

RETURN 

3120 

Abort2 : 

X2=  1 1 

3130 

Start2=0 

3140 

FOR  X2= 1 9  TO  Sample2  STEP  10 

3150 

IF  E<X2)=0  OR  E<X2-1 0) =0  THEN 

3190 

3160 

MOVE  <E<X2-10>+35> ,DePth(X2-10> 

3170 

PEN  -1 

3180 

DRAW  <E(X2)+35) ,Depth<X2) 

3190 

NEXT  X2 

3200 

X2=0 

3220 

PEN  1 

3230 

MOVE  35,0 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3331 

3340 

3341 
3350 
3360 
3370 


DRAW  70,0 

FDR  X4=-50  TO  -800  STEP  -100 
MOVE  0 , X4 
LINE  TYPE  3  • 

DRAW  105.X4 
NEXT  X4 
X4  =  0 

Sample2=9 

Plot2=9 

Sub2=0 

IF  Rstr t2= 1  THEN  3341 
MAT  B=  <0> 

Rstrt2=0 
PEN  -1 

MOVE  40 , Bt_no 
LABEL  Bt2 


3371 

3372 

3380 

3381 

3382 

3383 
3390 
3400 

3410  Abort3; 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3621 

3630 

3631 


MOVE  55 , Bt_no 
LABEL  T2$ 

PEN  1 

IF  Lau.nch_f  lg2=0  THEN  3390 
GOSUB  Launch2 
GOTO  3400 

ON  KEY  2  LABEL  "LAUNCHES"  GOSUB  Launch2 

RETURN 

X3=  1  1 

Star t3=0 

FOR  X3= 1 9  TO  Sample3  STEP  10 
IF  F(X3) =0  OR  F< X3-1 0 ) =0  THEN  3480 
MOVE  <F<X3-10)+70) , Depth <X3-1 0) 

PEN  -1 

DRAW  <F<X3)+70) ,Depth(X3) 

NEXT  X3 
X3=0 
PEN  1 
MOVE  70.0 
DRAW  105.0 

FOR  X4=-50  TO  -800  STEP  -50 

MOVE  0 , X4 

LINE-  TYPE  3 

DRAW  105.X4 

NEXT  X4 

X4  =  0 

Sample3=9 
Plot3 =9 
Sub3=0 

IF  Rstrt3=1  THEN  3631 
MAT  C=  <0) 

Rstr  t3  =  0 


3640 

3650 

3660 

3661 

3662 

3670 

3671 

3672 

3673 
3680 
3690 
3700 
3710 
3720 

3730 

3731 
3740 
3750 

3760 

3761 
3770 
3780 

3790 

3791 
3800 
3810 
3820 
3830 
3840 
3850 

3860 

3861 

3862 
3870 

3880 

3881 
3890 
3900 
3910 
3920 

3930 

3931 

3932 
3940 

3950 

3951 
3960 
3970 


PEN  -1 

MOVE  75 , Bt  _no 
LABEL  Bt3 
MOVE  90 , Bt_no 
LABEL  T3$ 

PEN  1 

IF  Launch_f lg3=0  THEN  3680 
GOSUB  Launch3 
GOTO  3690 

ON  KEY  4  LABEL  "LAUNCHES"  GOSUB  Launch3 
RETURN 

f 

!  I 

Startl :  Startl =1 

ON  KEY  0  LABEL  MLAUNCH/STOP  #1"  GOSUB  Secondl 

ON  KEY  10  GOSUB  Stopl 

RETURN 

Start2:  Start2=1 

ON  KEY  2  LABEL  "LAUNCH/STOP  #2"  GOSUB  Second2 

ON  KEY  12  GOSUB  Stop2 

RETURN 

Start3:  Start3=1 

ON  KEY  4  LABEL  MLAUNCH/STOP  #3"  GOSUB  Second3 

ON  KEY  14  GOSUB  Stop3 

RETURN 


Restart!:  GOSUB  Abortl 
LINE  TYPE  1 
MOVE  5 , Bt_no 
LABEL  Bt 1 
MOVE  19 , Bt_no 
LABEL  T1S 
Start  1  =  1 

ON  KEY  0  LABEL  MLAUNCH/STOP  #1"  GOSUB  Secondl 

ON  KEY  10  GOSUB  Stopl 

RETURN 

Restart2:  GOSUB  Abort2 
LINE  TYPE  1 
MOVE  40 , Bt_no 
LABEL  Bt2 
MOVE  55 , Bt_no 
LABEL  T2$ 

Start2=1 

ON  KEY  2  LABEL  "LAUNCH/STOP  #2"  GOSUB  Second2 

ON  KEY  12  GOSUB  StoP2 

RETURN 

Restart3:  GOSUB  Abort3 


3980 

LINE  TYPE  1 

3990 

MOVE  75, Bt  no 

4000 

LABEL  Bt3 

4001 

MOVE  90, Bt  no 

4002 

LABEL  T3$ 

4010 

Star t3=1 

4020 

ON  KEY  4  LABEL  "LAUNCH/STOP  #3"  GOSUB  Second3 

4021 

ON  KEY  14  GOSUB  StoP3 

4030 

RETURN 

4040 

f 

4050 

f 

4060 

Stop!:  Sample!  =Max2 

4070 

RETURN 

4080 

Stop2:  Sample2=Max2 

4090 

RETURN 

4100 

Stop3:  Sample3=Max2 

4110 

RETURN 

4120 

» 

4130 

t 

4140 

T  ransf  er  1 

:  CONTROL  @Path1 ,4; 10576 

4150 

OUTPUT  70401  ;"WR1” 

4160 

TRANSFER  SPathl  TO  ®Path5 

4170 

GOSUB  Abort  1 

4180 

GOTO  1760 

4190 

T  ransf  er2 

:  CONTROL  @Path2 , 4 ; 1 0576 

4200 

OUTPUT  70401 : "WR1 " 

4210 

TRANSFER  ®Path2  TO  @Path5 

4220 

GOSUB  Abort2 

4230 

GOTO  1760 

4240 

T  ransf  er3 

:  CONTROL  @Path3 , 4 ; 1 0576 

4250 

OUTPUT  70401 : "WR1 " 

4260 

TRANSFER  @Path3  TO  ®Path5 

4270 

GOSUB  Abor t3 

4280 

GOTO  1760 

4290 

Terminate 

:  GOSUB  Com  ready 

4300 

OUTPUT  70401 :"ED. 6000, 0;WR10" 

4310 

CONTROL  @Path6, 4:60000 

4320 

TRANSFER  ®Path6  TO  §Path5;WAIT 

4330 

OUTPUT  70401 ;"WF" 

4340 

GOSUB  Com  ready 

4350 

OUTPUT  70401 ;MWF" 

4360 

GOSUB  Com  ready 

4370 

OUTPUT  2  USING  *’# ,  B"  ; 255 , 75 

4380 

GCLEAR 

4390 

PRINT  TABXY<24 ,12) {"ACQUISITION  TERMINATED!' 

4400 

GOTO  5634 

4410 

Launch  1 : 

IF  Launch_f lgl =0  THEN  4420 

4413 

Btl =Bt 1_sec 

4414 

4416 

4420 

4421 

4422 

4430 

4431 
4440 
4450 
4460 
4470 
4472 
4480 
4490 

4500 

4501 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 

4620 

4621 

4623 

4624 

4625 

4626 

4627 
4630 
4640 
4650 
4660 

4670 

4671 

4672 
4674 

4680 

4681 

4682 

4690 

4691 
4700 


T 1 $=T 1 _sec$ 

GOTO  4430 
Btl =Bt 
Bt-Bt+1 

T 1 $=TIME$< TIMED ATE) 

LORG  2 
LINE  TYPE  1 
MOVE  5 , Bt_no 
LABEL  Btl 
MOVE  1 9 , Bt_no 
LABEL  T 1  $ 

A< 1 )=Bt1 

A(2) =VAL( T 1 $[ 1 .21) 

A<3) =VAL<  T1 $[ 4  ,5  3) 

A<4)=VAL(T1$[7 ,83) 

IF  Launch_f lgl = 1  THEN  4623 

Control= 1 1 

CONTROL  12,3; 11 

ENTER  @Patb4  USING  "*,W";A<5> 

Contro 1=1 0 

CONTROL  12,3:10 

ENTER  @Path4  USING  'V,W”;A<6> 

Control=9 
CONTROL  12,3;9 

ENTER  @Path4  USING  "tf,W";A<7> 

Control=8 
CONTROL  1 2 , 3 ; 8 

ENTER  @Path4  USING  "#,W”;A<8> 

GOTO  4630 
A<5) =Pos1_5 
A<6)=Pos1_6 
A<7)=Pos1_7 
A(8)=Pos1_8 
Lau.nch_f lgl =0 

ON  KEY  0  LABEL  "START  BT#1"  GOSUB  Starti 

Control=0 

CONTROL  1 2 , 3 ; 0 

RETURN 

Laiinch2:  IF  Launch_f lg2=0  THEN  4680 

Bt2=Bt2_sec 
T2$=T2_sec$ 

GOTO  4690 

Bt2=Bt 

Bt=Bt+1 

T2$=TIME$(TIMEDATE) 

LORG  2 
LINE  TYPE  1 
MOVE  40 , Bt_no 


471  0 

4711 

4712 
4720 
4740 
4750 

4760 

4761 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4830 
4881 
4832 
4883 
4834 
4335 
4886 
4890 
4900 
4910 
4920 

4930 

4931 

4932 

4934 

4935 

4936 

4937 

4950 

4951 
4960 

4970 

4971 

4972 
4980 
5000 
5010 

5020 

5021 


LABEL  Bt2 
MOVE  55 , Bt_no 
LABEL  T2$ 

B<  1 )=Bt2 

B(2)=VAL<T2$[ 1 ,21) 

B<3)=VAL<T2$[4,5]) 

B<4) =VAL<  T2$[ 7 , 8 ] > 

IF  Lau.nch_f lg2= 1  THEN  4382 

Control = 1 1 

CONTROL  12.3:11 

ENTER  @Path4  USING  "#,W";B<5> 

Control=1 0 

CONTROL  12,3:10 

ENTER  @Path4  USING  ”^,W";B<6) 

Control=9 
CONTROL  12.3:9 

ENTER  ®Path4  USING  "#tW";B<7> 

Control=8 
CONTROL  12.3:3 

ENTER  @Path4  USING  "#,W";B<8> 

GOTO  4890 

B(5)=Pos2_5 

B(6)=Pos2_6 

B(7)=Pos2_7 

B<8)=Pos2_8 

Lau.nch_f  lg2  =  0 

ON  KEY  2  LABEL  "START  BT*2"  GOSUB  Start2 

Control=0 

CONTROL  12.3:0 

RETURN 

Launch3:  IF  Lau.nch_f  lg3=Q  THEN  4935 

8t3=Bt3_sec 
T3$=T3_sec$ 

GOTO  4950 
Bt3=Bt 
Bt  =  B  t  +  1 

T3$=TIME$( TIMEDATE) 

LORG  2 
LINE  TYPE  1 
MOVE  75 , B  t_no 
LABEL  Bt3 
MOVE  90,Bt_no 
LABEL  T3$ 

p  /  i  }  =  R  f  o 

C(2)=VAL(T3$[ 1 ,23) 

C<3>=VAL<T3$[4.53> 

C<4) =VAL<T3$[ 7 ,83 ) 

IF  Launch_f lg3=1  THEN  5142 


5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5141 

5142 

5143 

5144 

5145 

5146 
5150 
5160 
5170 
5180 

5190  Metdata: 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410  ' 

5420 

5430 

5440 


ControI=1 1 

CONTROL  12,3;  11 

ENTER  @Path4  USING  , W" ; C<5) 

Control=1 0 

CONTROL  12,3:10 

ENTER  @Path4  USING  "#,W";C<6> 

Control =9 
CONTROL  12.3:9 

ENTER  @Path4  USING  ”*,W";C<7) 

Control=8 
CONTROL  12,3; 8 

ENTER  @Path4  USING  "£,W”:C<8> 

GOTO  5150 
C  <  5 ) =Pos3_5 
C(6)=Pos3_6 
C<7)=Pos3_7 
C<8)=Pos3_8 
Launch_f lg3=0 

ON  KEY  4  LABEL  ’’START  BT*3”  GOSUB  Start3 
Contro  1  =  0 


CONTROL  12,3:0 
RETURN 

CONTROL  12,3:0 
Tmet$=TIME$(TIMEDATE) 

Hr=UAL<  TmetSt 1,21) 

Min=VAL(Tmet$[4 ,51 ) 

Sec=VAL<  Tmet$[ 7,81) 

OUTPUT  @Path6  USING  "# , W" ;Hr . M in , Sec 
Contro 1= 1 1 
CONTROL  12,3:11 

TRANSFER  @Path4  TO  @Path6;C0UNT  2, WAIT 
Control = 1 0 
CONTROL  12,3; 10 

TRANSFER  @Path4  TO  @Path6;C0UNT  2, WAIT 
Control =9 
CONTROL  12,3;9 
TRANSFER  @Path4 
Control=8 
CONTROL  1 2 , 3 ; 8 

TRANSFER  @Path4  TO  @Path6;C0UNT  2, WAIT 
Control=16 


TO  @Path6: COUNT  2, WAIT 


CONTROL 
CONTROL 
FOR  1=7 
CONTROL 
TRANSFE 
NEXT  I 
Contro 1 =32 


12,3:16 
12:32 
TO  14 
12,3;16 
@Path4 


TO  @Path6 ; COUNT  2, WAT 


5450 

5460 

5470 

5480 

5490 

5500 

5510  Reuind_fin: 

5520 

5530 

5540  Com_ready : 

5550 

5560 

5570  No_key: 

5571  Secondl : 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580  . 

5581 

5582 

5583 

5584 

5585 

5586 

5587 

5589 

5590 

5591 

5592  Second2: 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 


CONTROL  12,3:32 

TRANSFER  @Path4  TO  @Path6 ; COUNT  2, WAIT 

ON  DELAY  15  GOSUB  Metdata 

Contro  1  =  0 

CONTROL  1 2 ,3 ; 0 

RETURN 

ENTER  70401 ; PI ,P2,P3,P4 

IF  BIT (P2 ,3>=0  OR  BIT(P2,5)=1  THEN  5510 

RETURN 

ENTER  70401 ;P1 ,P2.P3.P4 

IF  BIT  CPI ,4)=0  THEN  5540 

RETURN 

RETURN 

Bt1_sec=Bt 

B  t  =  B  t  + 1 

T 1 _sec$=TIME$( TIMED ATE) 

Contro 1=11 
CONTROL  12,3:11 

ENTER  @Path4  USING  M#,W" ;Pos1_5 
Contro  1  =  10 
CONTROL  12,3:10 

ENTER  $Path4  USING  "#  ,W" ;Pos1_6 

Control=9 

CONTROL  1 2 , 3 ; 9 

ENTER  ®Path4  USING  "# ,W" ;Pos1_7 
Contro 1 =8 
CONTROL  12,3:8 

ENTER  @Path4  USING  "*.W";Pos1_8 
Lau.nch_f  la  1  =  1 

ON  KEY  0  LABEL  M  /STOP  #1"  GOSUB  No_k 

Contro 1=0 
CONTROL  1 2 ,3 ; 0 
RETURN 


Bt2_sec=Bt 

Bt=Bt+1 

T2_sec$=TIME$( TIMEDATE) 

Contro 1=1 1 

CONTROL  12,3:11 

ENTER  ®Path4  USING  "#,W";Pos2 

Control = 1 0 

CONTROL  12.3:10 

ENTER  §Pat.h4  USING  "# ,  W"  ;Pos2. 

Contro  1  =9 

CONTROL  12,3:9 

ENTER  @Path4  USING  ’V,W";Pos2 
Control =8 
CONTROL  1 2 , 3 ; 8 

ENTER  ®Path4  USING  ,V,WM;Pos2. 


6 


7 

8 


5607 

5608 
5610 
561  1 

5612 

5613  Second3 : 

5614 

5615 

5616 

5617 

5618 

5619 

5620 

5621 

5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5631 

5632 

5633 

5634  END 


Lau.nch_f  lg2  =  1 

ON  KEY  2  LABEL  "  **  /STOP  *2"  GOSUB  No_key 

Control=0 

CONTROL  12,3:0 

RETURN 

Bt3_sec=Bt 

Bt=Bt+1 

T3_sec$=TIME$<  TIMEDATE) 

Control=1 1 
CONTROL  12,3:11 

ENTER  @Path4  USING  "#  , W" ; Pos3_5 
Control  =  1  0 
CONTROL  12,3;  10 

ENTER  @Path4  USING  "#,W";Pos3  6 

Control=9 

CONTROL  12,3:9 

ENTER  @Path4  USING  "*  ,WM ;Pos3_7 

Control=8 

CONTROL  1 2 , 3 ; 8 

ENTER  @Path4  USING  "# ,  W" ; Pos3_8 
Launch_f lg3  =  1 

ON  KEY  4  LABEL  "  **  /STOP  #3"  GOSUB  No  key 

Control=0 

CONTROL  12,3 ;0 

RETURN 


10 

20 

day 

30 

40 

41 

42 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

E” 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

271 

275 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 


"TIMEDATE" 


DIM  Day$( 0 : 6) [ 9 1 

DATA  Monday . T uesaay . Wednesday , Thursday , F r iday , Saturday , Sun 
READ  Day$<*> 

t 

Dmy$=FNDate$< TIMEDATE) 

Hms$=FNTime$< TIMEDATE) 

GOSUB  Clear_screen 

f 

FS=CHR$ ( 255 ) &CHR$ ( 72  > 

f 

PRINT  TABXY (1,14); "ENTER  THE  DATE,  AND  PRESSCONTINUE" 
OUTPUT  2  USING  "# , 1 1 A ,2A  ,  " ; Dmy$ , F$ 

t 

INPUT  Dmy$ 

f 

ENTER  Dmy$  USING  "2D , 4 A , 5D" ; D ,M$ , Y 
GOSUB  Clear_screen 

f 

PRINT  TABXY (1 , 14) ; "ENTER  THE  TIME  OF  DAY  AND  PRESS  CONTINU 

OUTPUT  2  USING  "* . 11  A , 2A" ; Hms$ . F$ 

INPUT  Hms$ 

ENTER  Dmy$  USING  "2D . 4A , 5D" ; D , M$ , Y 
♦ 

SET  TIMEDATE  FNDate(Dmy$)+FNTime(Hms$) 

f 

GOSUB  Clear_screen 

W=< TIMEDATE  DIV  86400)  MOD  7 

PRINT  TABXY < 1 , 1 ) ; "THE  CLOCK  HAS  BEEN  SET  TO:" 

PRINT  TABXY (1 .3) :Day$<W) ";DmyS;"  FNTime$< TIMEDATE) 
GOTO  270 
GOTO  Quit 


Clear_screen:  OUTPUT  2  USING  'V  . B" ; 255 , 75 
RETURN 

Quit:  END 

DEF  FNT ime$<Now>  ! Given  'SECONDS'  Return 
? ' hh : mm : ss ' 

j 

Nou=INT (Now)  MOD  86400 
H=Noy  DIV  3600 
M=Now  MOD  3600  DIV  60 
S=Now  MOD  60 

OUTPUT  T$  USING  "# , ZZ , K" ; H , " : " , M , " : " , S 
RETURN  T$ 


420  FNEND 
430  ! 

440  DEF  FNT ime( T$)  !  Given  hh:mm:ss'  Return 
!  'SECONDS' 

450  ON  ERROR  GOTO  Err 

460  ENTER  T$;H.M.S 

470  RETURN  <3600*H+60*M+S>  MOD  86400 

480  Err:  OFF  ERROR 

490  RETURN  TIMEDATE  MOD  86400 

500  FNEND 

510  DEF  FNDateS(Seconds) !  Given  seconds'  Return 
'dd  mimri  yyyy' 

520  DATA  JAN, FEB. MAR, APR, MAY ,JUN,JUL, AUG, SEP, OCT, NOV, DEC 
530  DIM  Months < 1 ; 1 2) C 3 ] 

540  READ  Month$(*> 

550  ! 

560  Jul ian=Seconds  DIV  86400-1721119 

570  .  Year= <4*Jul ian- 1 )  DIV  146097 

580  Jul ian= (4* Jul ian- 1 )  MOD  146097 

590  Day= Julian  DIV  4 

600  Jul ian=  < 4*Day+3>  DIV  1461 

610  Day  =  <4*Day+3)  MOD  1461 

620  Day =( Day +4)  DIV  4 

630  Month=<5*Day-3>  DIV  153 

640  Day=<5*Day-3>  MOD  153 

650  Day =< Day +5)  DIV  5 

660  Year= 1 00*Year+Jul ian 

670  IF  Month< 1 0  THEN 

680  Month=Month+3 

690  ELSE 

700  Month=Month-9 

710  •  Year=Year+1 

720  END  IF 

730  OUTPUT  D$  USING  "# , ZZ , X ,3A , X , 4Z" :Day ,Month$(Month> , Year 
740  RETURN  D$ 

750  FNEND 
760  ! 

770  DEF  FNDate(DmyS) 

780  ! 

790  DATA  JAN , FEB , MAR , APR . MAY , JUN , JUL , AUG , SEP , OCT  ,NOV,DE 

800  DIM  Months < 1 : 1 2) C 3 1 

810  READ  Month$(*> 

820  ! 

830  ON  ERROR  GOTO  Err 

840  I$=Dmy$d" 

850  ENTER  IS  USING  "DD , 4A .5D" : Day ,M$ , Year 
860.  IF  Year < 1 00  THEN  Year=Year+1 900 
870  FOR  1=1  TO  12 


880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

h+2) 

1000 

1010 

rr 

1020 

1030 

1040 

1050 


IF  PO$(M$,Month$<I) )  THEN  Month=I 
NEXT  I 

IF  Month=0  THEN  Err 
IF  Honth>2  THEM 
Month=Month-3 
ELSE 

Honth=Month+9 
Year=Year~1 
END  IF 

Centu.ry  =  Year  DIV  100 
Remainder=Year  MOD  100 

Jul ian=  1 46097*Century  DIV  4+1 461 ^Remainder  DIV  4+<153*Mont 
DIV  5+Day+1 721119 
Jul  ian=Jul  ian*86400 

IF  Ju.1  ian<2. 0866291 2E  +  1  1  OR  Jul ian>=2 . 1 43252224E  +  1  1  THEN  E 

RETURN  Julian 
Err: OFF  ERROR 

RETURN  TIMEDATE 
FMEND 


SHOW  CURRENT  I  SHOW  POWER-ON  I  SHOW  DPTflCONM  I  CONFIGURE  POWER-ON  I  CONFIGURE  DftiftCOMM  I  RESET  (Ml 
**■**-****■*****************  CONFIGURATION  COMPLETED  ************************* 

SHOW  CURRENT  I  SHOW  POWER-ON  I  SHEW  DATfiCOHM  I  CONFIGURE  POWER-ON  i  CONFIGURE  DATfiCOHM  I  RESET  CONFIGURATION 
PRINT  SIZE:  NORMAL  COMPRESSED  EXPANDED 


LEFT  MARGIN— SELECT  2  DIGITS  <*#>  — RANGE:  PRINT  POSITIONS  01  THRU  80 
FIRST  DIGIT  i#  SECOND  DIGIT  *£ 

012  3  456783  0123456789 

RIGHT  MARGIN— MUST  BE  TO  THE  RIGHT  OF  THE  LEFT  MARGIN 
FIRST  DIGIT  ##  SECOND  DIGIT  #£ 

0  12  3  4  5  6  7  3  9  012345  6  7  8  3 

PERFORATED  PAPER:  ON  OFF  i  AUTO  PAGE  MODE:  ON  OFF 


TOP  MARGIN  LENGTH  (LINES) — SELECT  3  DIGITS  <##*>— RANGE:  000  thru  255 

FIRST  DIGIT  £**  SECOND  DIGIT  THIRD  DIGIT  **£ 

0  12  3  456733  0  1  23456783  0  12  3  45678  3 


TEXT  LENGTH  (LIMES) --SELECT  3  DIGITS  <###>— RANGE :  001  THRU  255 

FIRST  DIGIT  £##  SECOND  DIGIT  #£#  THIRD  DIGIT  **£ 

0  1  234  5  6  78  3  012  3  45  6  783  0  123456783 

MISCELLANEOUS  SELECTIONS: 

SAME  PAPER  MODE  I  LINE  WRAP  AROUND  I  PERMANENT  ENHANCEMENTS 
TAB  HITH  ENHANCEMENTS  I  CR  =  CR , LF  I  LF  =  CR,LF  AND  FF  =  CR , FF 

DISPLAY  FUNCTIONS  (TEMPORARY  SETTING— WILL  NOT  EXIST  AT  POWER-ON):  ON  C 


cftPHIGS  X  OFFSET  (DOT  COLUMNS) --SELECT  3  DIGITS  (#*#) --RANGE :  000  THRU  720 
■  FIRST  DIGIT  £**  SECOND  DIGIT  ###  THIRD  DIGIT  *#£ 

0  1  2  3  4  5  6  783  0123456783  0  12  3  4  5  6  7  8  3 

gEpHICS  Y  OFFSET.  (RASTER  LINES)— SELECT  3  DIGITS  (###>— RANGE :  000  THRU  933 


1 

* 


FIRST 
1  2  3 


DIGIT  £** 

4  5  6  7  8  9 


RACTER 

ASCII 

ERMANY 


SETS 


02 

06 


ROMAN  EXT 
JASCII 


SECOND  DIGIT  #£# 
0  1  2345  6  789 


03  LINE  DRAW  04  UNITED  KINGDOM 

OS  SPAIN  10  SWEDEN-FINLAND 


THIRD  DIGIT  #*£ 

0  1  2345  6  789 


05  DENMARK- NORWAY  06  FRANCE 

11  ALL  BLANK  12  HR¬ 


PRIMARY  CHARACTER  SET— SELECT 

■FIRST  DIGIT  £* 

0  12  3  4  5  6  7  8  9 


2  DIGITS  (^tf) --RANGE :  01  THRU  12 
SECOND  DIGIT  #£  . 
0123456789 


I 


1'ONDARY  CHARACTER  SET: 
FIRST  DIGIT  £# 

0  12  3  4  5  6  7  8  9 


SECOND  DIGIT  #£ 

0  12  3  4  5  6  7  8  9 


“EDIT" 


10  OPTION  BASE  1 

20  GRAPHICS  ON 

30  GINIT 


40  INTEGER  A< .1  :  1 2480)  ,  G<  1  : 1 2480 ) ,  I ,  J . K ,  2 . DataKI  : 5287 ) 

50  ASSIGN  @Pu.nch  TO  8;C0NVERT  OUT  BY  PAIRS  Converts 

60  DIM  Conver t$[ 200 ] 

61  DATA  0,0,10,8,13,2,27,27,31,31 

63  DATA  32 , 4 ,33 ,22 ,34 , 0 ,35 ,5 ,36 ♦ 0 ,37 * 0 ,38 , 1 1 ,39,20,40,30,41 ,3 
,42,0,43.17,44.6,45,24,46.7,47.23,48. 13.49,29,50,25,51 ,16,52,10, 
53,1 ,54,21  ,55,28,56,12.57,3 

64  DATA  58 , 1 4 . 59 , 0 , 60 . 0 , 6 1 , 1 5 . 62 , 0 , 63 , 1 9 . 64 , 0 , 65 . 24 , 66 . 19 , 67 , 
1 4 . 68 , 1 8 , 69 , 1 6 , 70 , 22 . 7 1 . 1  1 , 72 , 5 , 73 , 1 2 , 74 . 26 . 75 , 30 , 76 . 9 . 7 7 , 7 , 78 , 6 
,73,3,80,13,81,29,82,10,83,20 

65  DATA  84, 1 ,85,28,86, 15,87,25,88,23,89,21 ,90, 17,91 .0,92,0,93 
, 0 , 94 , 0 , 95 . 0 , 96 , 0 , 97 , 24 , 98 , 1 9 . 99 , 1 4 , 1 00 , 1 8 . 1 0 1 , 1 6 , 1 02 , 22 , 1 03 , 1  1  , 
104,5,105,12.106,26.107,30,108,9 

66  DATA  109, 7, ltd. 6. ill, 3. 112, 13, 113, 29. 114,10,115, 20. 116. 1,1 
1 7 , 23 , 1 1 8 , 1 5 . 1 1 9 , 25 , 1 20 . 23 , 1 2 1 , 2 1 , 1 22 , 1 7 . 1 23 . 0 . 1 24 . 0 , 1 25 , 0 . 1 26 , 0 
.127,0 


67  FOR  1=1  TO  200 

68  READ  Conv_data 

69  Conver  t$[ 1 1 =CHR$<  Conv_data) 

70  NEXT  I 

72  W$="LAT : " 


80  X$=”DEG” 

30  Y$="MIN" 

100  Z$="L0NG 

110  OFF  KEY 

120  FOR  1=1  TO  40 

130  PRINT  TABXY(30 ,8) ; "  BT  EDIT  PROGRAM  " 

140  PRINT  TABXY<I+18,8) 

150  NEXT  I 

160  PRINT 

170  FOR  1=1  TO  10 

130  PRINT  TABXY <19,1+8),  : 

190  FOR  J-1  TO  38 

200  PRINT  " 

210  NEXT  J 

220  PRINT 

230  NEXT  I 

240  FOR  1=1  TO  40  • 

250  PRINT  TABXY<I+18, 19> : 

260  NEXT  I 

270  PRINT  TABXY (.29,12):  "ENTER  FLIGHT  NO.  AND" 

280  PRINT  TABXY <26. 13) PRESS  CONTINUE 

290  INPUT  Fliqht 

300  PRINT  TABXY (0.1): "FLIGHT  NUMBER" ; FI ight ; "SELECTED" 

310  PRINT  TABXY <29. 12) ; "ENTER  BT  NUMBER  AND  " 


PRESS 


390 
400 
410 
420 
430 
440 
450 
4S0 
470 
480 
490 
:CHR$< 
500 
510 
520 
530 
540 
550 
560 
570 
530 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 


TABXY<26, 13) ; 

Bt 

TABXY (0,2) ; "BT  NUMBER" : Bt : "SELECTED  " 
TABXY (29,12)  ;  "  ENTER  BT  TYPE 
TABXY <26. 13) ; "<S= SHALLOW, D=DEEP,M= MIXED)" 
TABXYC29, 14) ;"AND  PRESS  CONTINUE” 

Type$ 


THEN 

THEN 

THEN 


430 

450 

470 


TYPE 

TYPE 


IS 

IS 


IS 


320  PRINT 
330  INPUT 
340  PRINT 
350  PRINT 
360  PRINT 
370  PRINT 
380  INPUT 

IF  Type$="S" 

IF  Type$="D" 

IF  Type$="M" 

GOTO  350 

PRINT  TABXY <0 , 3) ; "BT 
GOTO  430 

PRINT  TABXY(0 ,3) ;"BT 
GOTO  480 

PRINT  TABXY (0,3); "BT  TYPE 
BEEP  1000,  .5 

PRINT  TABXY <26 ,13); CHR$( 131) 
128) 

PRINT  TABXY<29 , 12) : " 

PRINT  TABXY (29,14)  ;  " 

INPUT  Ok$ 

IF  Ok$="Y"  OR  Ok$="YES"  THEN 
IF  Ok$=”N"  OR  Ok$="NO"  THEN 
GOTO  490 

IF  Type$="S"  THEN  700 
Posi t ion=-222 
Select_no1=-196 
Se lect_no2=26 
Bt_pos=50 
T_pos=20 
Lat_pos  =  - 1  0 
Long_pos=~40 
Cu.rs_labl  =  -70 
Data_lab I=- 1 60 
Data_header  =  -1 90 
Samp le_max =5280 
Data_pos=26 
GOTO  820 
Posi t ion=- 1 1 1 
Select_no1 =-98 
Select_no2=13 
Bt_pos=25 
T_pos  =  1  0 
Lat_pos=-5 


CONTINUE 


'SHALLOW  " 

'DEEP' 

'MIXED'  " 

"  IS  ALL  DISPLAYED  INFO  OK? 


560 

270 


Long, 


DOS  = 


=  _o 


0 


Curs_labl=-35 
Data  labl=-80 


790  Data_header=-95 
800  Samp le_max =2640 

810  Data_pos=13 
820  BEEP  1000,  .5 

830  PRINT  TABXY (26,13) ;CHR$< 130) ; "  PRESS  CONTINUE  TO  START'  " 
;CHR$( 128) 

840  PAUSE 

850  OUTPUT  2  USING  , B" ; 255 , 75 
860  OUTPUT  70401 ;”RW" 

870  GOSUB  Reuind_f in 
880  OUTPUT  70401 ;”SF1” 

890  GOSUB  Com_ready 
900  OUTPUT  70401 ;"RR1" 

910  ENTER  70402  USING  ”# , W" ;Month , Day , Year , FI ight2 , Type ,Fi rst 

920  IF  F 1  ight2  =  F 1 ight  THEN  940 

930  GOTO  880 

940  OUTPUT  70401 :"RR1" 

950  ENTER  70402  USING  "#fWM;Bt_2 
960  IF  Bt_2=Bt  THEN  990 

970  ENTER  70405  USING  'V" 

971  GOSUB  Com_readv 

972  IF  Bt_2=7000  THEN  981 

980  GOTO  940 

981  BEEP  1  000,  .5 

982  PRINT  TABXY (27,10); CHR$< 131 ) ; "BT  NUMBER  NOT  FOUND! !" ;CHR$< 
128) 

984  GOTO  Nextl 

990  ENTER  70402  USING  'V.W’jDatal  <*) 

1000  Bt=Bt_2 
1010  T 1 =Data1 < 1 ) 

1020  T2=Data1<2) 

1030  T3=Data1 (3) 

1040  m*VAL$(T1) 

1050  T2$=V,AL$<T2) 

1060  T3$=VAL$( T3) 

1070  Colon$=" : " 

1080  T4$=T 1 $&Co 1 on$&T2$*Co 1 on$&T3$ 

1090  Wordl =Data1 (4) 

1100  Word2=Data1  <5) 

1110  GOSUB  Posit 
1120  IF  Di r=3  THEN  1150 
1130  Lat_dir$="N" 

1140  GOTO  1160 
1150  Lat_di r$="S" 

1160  Lat_deg=Deg 
1170  Lat_min=Min 
1180  Wordl =Data1 (6) 

1190  Word2  =  Data1  <  7 ) 


1200 

1210 

1220 

1230 

1240 

1250 

1260 

1261 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1401 

1403 

1404 

1405 

1 406 

1407 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1591 


GOSUB  Posit 
IF  Dir=3  THEN  1240 
Long_di r$="E" 

GOTO  1250 
Long_dir$="W" 

Long_deg=Deg 
Long_min=Min 
OFF  KNOB 

VIEWPORT  0,125,9,100 
IF  Type$="S"  THEN  1330 
WINDOW  -7.53.7.-810,60 
ASSIGN  @Path1  TO  "EDIT  GRID2" 
ENTER  @Path1 ;G(*> 

GOTO  1360 

WINDOW  -7,53.7,-405,30 
ASSIGN  ®Path1  TO  "EDIT_GRID" 
ENTER  ®Path1;G(*) 

GLOAD  G(*) 


ON  KEY  0  LABEL  "SELECT  DATA"  GOSUB  Select 
ON  KEY  1  LABEL  "STOP"  GOSUB  Stop 

5  LABEL  "DELETE  DATA"  GOSUB  Delete 
LABEL  "DUMP  GRAPHICS"  GOSUB  DumP2 
GOSUB  No_key 
GOSUB  No_key 
GOSUB  No_key 
GOSUB  No_k  ey 
ON  KEY  8  GOSUB  No_key 
ON  KEY  9  GOSUB  No  key 
LINE  TYPE  1 
PEN  1 


ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY 
ON  KEY  3 
ON  KEY  7 


DIM  Depthl (5280), Tempi (5280) 

DIM  Temp2<23> ,Depth2(23) ,Message(31  > ,Data<23) 
U  —  1 


FOR  U=Q  TO  528  STEP  .1 
Depthl (J)=-1 .5926HJ 
J= J+ 1 
NEXT  U 

FOR  1=1  TO  5280 

IF  Datal <I+7)>6945  OR  Datal ( 1+7 ) <3700  THEN  1540 

Tempi < I>  =  <  < 1 /(Datal <I+7)*1 .E~7) )-1 440) /36 

GOTO  1550 

Tempi < I ) =-5 

NEXT  I 

J  =  0 

K=0 

MOVE  0,0 

FOR  1=2  TO  Sample_max 

IF  Tempi (I)=-5  OR  Tempi <1-1 )— 5  THEN  1620 


1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1871 
1830 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1360 
1970 

1  980- 
1990 
2000 
2010 
2020 
2030 


MOVE  Tempi <1-1 ) .Depthl <1-1 ) 

DRAW  Tempi <I) .Depthl <I> 

NEXT  I 
CSIZE  3 
LORG  8 

FOR  1=1  TO  23 

MOVE  39 , <Select_no1 +  < -I*Select_no2  > ) 

LABEL  I 
NEXT  I 

MOVE  36,Bt_pos 
LORG  2 

LABEL  "BT  NO.:":Bt 
MOVE  36 , T_pos 
LABEL  "TIME : " ; T4$ 

MOVE  36,Lat_pos 

LABEL  "LAT : " : Lat_d i r$ ; Lat_deg ; "DEG" ; Lat_m i n ; "MIN" 
MUVE  36,Long_pos 

LABEL  "LONG : " : Long_d i r$ ; Long_deg : "DEG" ; Long_m in ; "MIN' 
MOVE  36 , Curs_lab 1 
CSIZE  2.9 
LABEL  "CURSOR:" 

MOVE  36 .Data_iabl 
CSIZE  3 

LABEL  "SELECTED  DATA:" 

MOVE  38 , Data_header 
CSIZE  2.5 

LABEL  "TEMP<DegC>  DEPTH<M>" 

GSTORE  A<  *) 

ON  KEY  4  LABEL  "MANUAL  POSIT."  GOSUB  Maniial_posit 
MOVE  0,0 
1=1 
K  =  0 

Select= 1 

GOSUB  Select 

ON  KNOB  .080  GOTO  1950 

GOTO  1980 

PEN  -1 

DRAW  Tempi <I)-5. Depthl <I) 

PEN  1 
K=KNOBX 


I  =  I+K 

IF  I<1  THEN  1=1 

IF  I>Sample_max  THEN  I=Sample_max 
PRINT  TABXY <56,3) 

PRINT  TABXY<56 .4) ;PROUND<Temp1 <I) ,-2) ;"DEG" 


PROUND< -Depthl 


<  I )  ,  -1 > ; "M 

2040  IF  Terminate= 1  THEN  GOTO  Next 
2050  MOVE  Tempi < I) -5 , Depthl < I ) 


2060  DRAW  Tempi <I)+5, Depth! <I) 

2070  IF  Depthl <I)>-50  THEN  2090 
2080  GOTO  2100 
2090  WAIT  .020 
2100  GLOAD  A<*> 

2110  GOTO  2040 
2120  J=0 

2130  Select:  OFF  KEY  1 
2140  CSIZE  3 

2150  IF  Selects  THEN  2230 

2160  MOVE  Tempi < I ) -5 , Depthl ( I ) 

2170  LORG  8 

2180  LABEL  Select 

2190  MOVE  Temp  1 ( I ) -5 , Dep t h I < I ) 

2200  DRAW  Tempi ( I ) +5 , Depthl ( I ) 

2210  LORG  2 

2220  LABEL  Select 

2230  MOVE  38. Position 

-2>?PR0UND<  -DeptM  C  1)^2)  "2* ’DD  ’  DD ' X  • 2X  - DDD  • D"  '  PRQUND<  Temp  HI) 


2250 

2260 

2270 

2230 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 


GSTORE  A<*> 

T  emp2 ( Select )  =  T  emp 1(1) 
Depth2(Select>=-Depth1 (I) 

Se lec t =Se 1 ec  t  + 1 
IF  Select>23  THEN  GOSUB  Stop 
Posi t ion=Posi t ion~Data_pos 


Stop : 


ES  SELECTED” ;CHR$(128) 

2380  PRINT  TABXY^ 

E  ANYTHING?” ;CHR$( 128) 


ON  KEY  1  LABEL  "STOP”  GOSUB  Stop 
RETURN 
BEEP  1000. ,5 
GRAPHICS  OFF 
ALPHA  OFF 

IF  Select<23  THEM  GOTO  2380 

PRINT  TABXY <24,11); CHR$( 131 ) ; "MAXIMUM  NO.  OF  SAMPL 


°4 


12): CHR$( 131); "DO  YOU  WANT  TO  CHANG 


2390 

2400 

2410 

2420 

2430 

2440 

ICS 

2450 

2460 

2470 

2480 


INPUT  Change® 

IF  Change$=”YES"  OR  Change$="Y"  THEN  2520 
IF  Change$="N0"  OR  Change$=”N"  THEN  2430 
GOTO  2400 

PRINT  TABXY(24,1 1 ) 


PRINT  TABXY (24 ,12) :CHR$( 131 ) ; " 
:CHR$( 128) 

GRAPHICS  ON 
GOSUB  Di±mp2 
GRAPHICS  OFF 

PRINT  TABXY (20 ,12)  ;C.HR$(  131 ) ;  "PRESS 


DUMPING  GRAPH 


CONTINUE  TO  GE 


NERATE  JJXX  MESSAGE" ;CHR$( 128) 


2490 
2500 
2510 
2520 

n 

2530 

ii 

2540 

2550 

2560  Jjxx: 
2570 

p2(I> ,-t )> 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 

7X , ZZZ , ZZ , 7X , 
_m i n , Long_deg 
2850 
2860 
2870 
2880 
2890 
2900 


BEEP  600,  .5 
PAUSE 
GOSUB  Jjxx 

PRINT  TABXY <24.11);” 
PRINT  TABXY (24,12);" 


ON 


graphic: 

RETURN 

FOR  1=1  TO  Select-1 

Data( I)  =  1 0*<  < ( PROUND < Depth2 < I ) , 0) )*1 00) +PROUND<  Tem 
NEXT  I 

MAT  SORT  Data<*)  DES 

Add=0 

Layer=0 

K=  1 

FOR  I=Select- I  TO  1  STEP  -1 
Layer=INT<Data<I>*. 00001 ) 

IF  Layer>Add  THEN  GOTO  2670 
GOTO  2710 

Message <K ) =99900+Layer 
! PRINT  USING  "ZZZZZ” ;Message<K) 

Add=Layer 
K=K  +  1 

Message <K)=Data( I >- (Layer* 1 00000 ) 

? PRINT  USING  "ZZZZZ" ;Messaae<K> 

K=K+1 
NEXT  I 

OUTPUT  2  USING  "#,3";255.75 

PRINT  TABXY (20,12); "ENTER  QUADRANT  NUMBER  AND" 
PRINT  T ABX Y (24,13); "PRESS  CONTINUE" 

INPUT  Quad 

OUTPUT  2  USING  "*,B":255,75 
J jxx$=" JJXX" 

T4=T 1  *  1 00+T2 
Ind=88888 
S lant$="/" 

PRINT  USING  "AAAA . 3X , ZZ . ZZ , Z , 7X , ZZZZ , A , 7X , D , ZZ , ZZ , 
DDDDD" : J jxx$ , Day . Month , 4 , T4 ,S lan t$ .Quad , Lat_deg ,Lat 
, Long_m in , Ind 
1PRINT 
! PRINT 
Co  1  =  0 
r\ou  =  J 
W=1 

PRINT  TABXY (Col  ,Rou)  : 


2910  IF  W>K-1  THEN  3010 

2920  PRINT  USING  "ZZZZZ" ; Message(W) 

2930  W=W  +  1 

2940  IF  Col=0  THEN  Col-1 

2950  Col=Col+1 2 

2960  IF  Col>61  THEN  2980 

2970  GOTO  2900 

2980  Rou=Rotj+2 

2990  Col=0 

3000  GOTO  2900 

3010  PRINT  "VXN-8" 

3020  PRINT  TABXYd ,13) ;CHR$< 131); "PRESS  CONTINUE  TO  DUM 

P  MESSAGE” ;CHR$( 123) 

3030  PAUSE 

3031  PRINT  TABXY < 1 ,18) 


3040 

3050 

3051 
3060 
CH  TAPE 
3070 
3080 
3090 
3100 

3110  Delete : 
3120 


KEY 


OFF 
DUMP  ALPHA 
WAIT  5 

PRINT  TABXY ( 1 
; CHR$< 1 28) 

PAUSE 

GOSUB  Punch 
Terminate= 1 
RETURN 
LORG  2 
CSIZE 


13); CHR$( 131 ) 


3 


"PRESS  CONTINUE  TO  PUN 


3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

IN" 


MOVE  36, Bt _ pos 

PEN  -1 

LABEL  "BT  NO.:":Bt 
MOVE  36 , T_pos 
LABEL  "TIME : " ; T4$ 

MOVE  36 , Lat_pos 

LABEL  "LAT : " ; Lat_di r$ ; Lat_deg ; "DEG" ; Lat_min ; "MIN" 
MOVE  36,Long_pos 

LABEL  "LONG : " ; Long_di r$ ; Long_deg ; "DEG" ; Long_min; "M 


3220 

?" ;CHR$( 1 28) 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

33 1  0 


PRINT  TABXY (55 ,  1)  : CHR$< 131); "DELETE  DATA  POINT  NO. 
INPUT  Number 

MOVE  Temp2( Number ) -5 , -Depth2 (Number ) 

LORG  8 
PEN  -1 

LABEL  Number 

MOVE  T emp2 ( Number )  -  5 , -Dep  th2 (Number ) 

DRAW  Temp2 (Number ) +5 , - Dep th2( Number ) 

LORG  2 

LABEL  Number 


3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 


FOR  I=Number+1  TO  Select-1 
MOVE  Temp2 < I ) -5 , ~Dep th2 < I ) 
LORG  8 
PEN  -1 
LABEL  I 

MOVE  Temp2 ( I ) -5 , -Depth2 ( I ) 
PEN  1 
LABEL  1-1 

MOVE  Temp2 < I ) +5 , -Dep th2< I ) 
LORG  2 
PEN  -1 
LABEL  I 

MOVE  Temp2(I)+5.-Depth2(I) 
PEN  1 
LABEL  1-1 
NEXT  T 

FOR  I=Nu.mber  TO  Select-1 


3490  MOVE  38 , ( Se 1 ect_no t + < - I*Se 1 ec t_no2 ) ) 

3500  LORG  2 

3510  PEN  -1 

3520  LABEL  USING  "2X ,DD . DD , X , 2X , ODD . D” ; PR0UND<Temp2< I> 

-2) ,PROUND<Depth2<I) ,-2) 

3530  IF  1=23  THEN  3560 

3540  TemP2 ( I ) =TemP2< 1+1 ) 

3550  Depth2(I)=Depth2<I+1 ) 

3560  NEXT  I 

3570  PEN  1 

3580  FOR  I = Number  TO  Select-2 

3590  MOVE  38, <Select_no1 +<-I*Select  no2)) 

3600  LORG  2 

3610  LABEL  USING  "2X , DD . DD ,X , 2X , ODD . D" ;PR0UND<Temp2< I ) 

-2)  ,PR0IJND<Depth2(I)  .-2) 


3620  NEXT  I 

3630  Se lect=Select~1 

3640  Posit ion=Posi t ion+Data_pos 

3650  PRINT  TABXY (55.1 >  ;” 

3660  MOVE  36 .Bt_pos 

3670  PEN  1 

3680  LABEL  "BT  NO.:":Bt 

3690  MOVE  36,T_pos 

3700  LABEL  "TIME:";T4$ 

3710  MOVE  36,Lat_pos 

3720  LABEL  "LAT :  "  ;  Lat_di  r$ ;  Lat._deg  ;  "DEG"  ;  Lat_min ;  "MIN" 

3730  MOVE  36,Long_pos 

3740  LABEL  "LONG Long_di r$ ; Long_deg : "DEG" ; Long  min;"M 

IN" 

3750  GSTORE  A<*> 

3760  RETURN 


37  ?0  Dump : 

3780 

3790 

3800 

3810 

3820 

3830  Dump2: 

3840 

3850 


OUTPUT  701;" 

OUTPUT  701 
OUTPUT  701;" 

DUMP  DEVICE  IS  701, EXPANDED 

DUMP  GRAPHICS 

RETURN 

OUTPUT  701;" 

OUTPUT  701  ;" 

OUTPUT  701;" 


38G0 

3870 

3880  Next: 

3890  Nex  1 1 ; 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4021 
4030 

4040  Posit: 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 


DUMP  GRAPHICS 
RETURN 

OUTPUT  2  USING  "#,B":255,75 
GCLEAR 

OUTPUT  70401 ; "SF 1 ,1" 

GOSUB  Com_ready 
OUTPUT  70401; "SRI" 

GOSUB  Com_ready 
Terminated 

PRINT  TABXY<27, 12) ; "ENTER  NEW  BT  NUMBER  AND" 
PRINT  TABXY<31 ,13) ;"PRESS  CONTINUE" 

INPUT  Bt 

OUTPUT  2  USING  "#.B";255,75 

IF  Type$="S"  THEN  4020 

Posi t  ion=-222 

GOTO  4030 

Pos  i  t  ion=- 1  1 1 

OFF  KNOB 

GOTO  940 

Digit<4)=SHIFT<Word1 ,12) 

FOR  1=3  TO  1  STEP  -1 
Word  1 =ROTATE < Word  1 ,~4) 

Digit(I>=SHIFT (Wordl ,12) 

NEXT  I 

Min=(Digit(3)*10>+Digit<2)+<Digit<l)*.1) 

Dir=SHIFT<Word2,6) 

Digit(6>=R0TATE(Word2,6) 

Digit(6)=SHIFT  <Digit<6) ,14) 

Digit <5)=R0TATE<Word2.4> 
Digit(5)=SHIFT<Digit<5) ,12) 

Deg=Digi t  <6>*100+Digit<5>*10+Digit<4> 


4160  RETURN 

4170  Reuind_f in :  ENTER  7040 1 : PI . P2 , P3 , P4 

4180  IF  BIT<P2,3)=0  OR  BIT<P2,5)=1  THEN  4170 

4190  RETURN 

4200  Com_ready:  ENTER  70401  ; PI  ,P2 .P3 ,P4 

4210  IF  BIT (PI , 4) =0  THEN  4200 

4220  RETURN 

4230  Punch :  IMAGE  *,A,A,ZZ,ZZ.Zf A,ZZZZ,A,A,D.ZZ.ZZ,A,ZZZ.ZZ,A, 

DDDDD 

4231  OUTPUT  ©Punch  USING  'V , A , AAAA" ; CHR$(3t  > , Jjxx$ 

4240  OUTPUT  ©Punch  USING  Punch ;CHR$<32) tCHR$<27> , Day ,M 

nth , 4 ,CHR$<32) , T4 , Slants , CHR$<32) , Quad  t Lat_deg , Lat_min ,CHR$<32) , 
Long_deg . Long_m in , CHR$ (32) , 88888 


U 


4250 
R$ ( 1 0 ) 
4260 
4270 
4280 
(32) 
4290 
4300 
4310 

4320 
R$( 1 0) 

4321 
4330 
4340 


OUTPUT  ©Punch  USING  'V  , A , A , A" ; CHR$< 13) , CHR$(13) ,  CH 


L  ine= 1 

FOR  Loop=1  TO  K-1 
OUTPUT  ©Punch  USING 

L  ine^L ine+ 1 
IF  Line=7  THEN  4320 
GOTO  4330 

OUTPUT  ©Punch  USING 


, ZZZZZ , A" ; Message <  Loop) , CHR$ 


,  A ,  A  t  A"  ; CHR$< 13), CHR$< 13) , CH 


Line=1 
NEXT  Loop 

OUTPUT  ©Punch  USING 
, "VXN" ,CHR$<27) . 8,CHR$<31 )  ,CHR$<13) ,CHR$< 1 3) , CHR$<  1 0 ) 

4350  RETURN 

4351  Manual _posit:  GCLEAR 


V , A , AAA . A , D . A , A , A . A” : CHR$ (31) 


4352 

4353 

4354 

4355 
MIN" 

4356 

4357 

4358 

in:  "MIN- 

4359 

4360 

4362 

4363 

4364 

4365 

4366 

4367 


GLOAD  A<*) 

MOVE  36 . Lat_pos 
PEN  - 1 

LABEL  "LAT : " ; Lat_d i r$ ; Lat_deg ; "DEG" ; Lat_min ; " 

MOVE  36,Long_pos 
PEN  -1 

LABEL  "LONG : " ; Long_di r$ ; Long_deg ; "DEG" ; Long_m 

GSTORE  A<*) 

GCLEAR 
PEN  1 

OUTPUT  2  USING  "# , B" ;255 . 75 

PRINT  TABXY<29. 12) ; "ENTER  LAT  OCTANT (N  OR  S>" 

PRINT  TABXY (32,13); "AND  PRESS  CONTINUE" 

INPUT  Lat_dir$ 

PRINT  TABXY <29,12) ENTER  LATITUDE  DEG.(DD) 


4368 

INPUT  Lat  deg 

4369 

PRINT  TABXY<29 , 1 

M>" 

, 

4370 

INPUT  Lat  min 

437! 

PRINT  TABXY< 1,1) 

",Lat  mm;" 

MIN" 

4372 

PRINT  TABXY<23 , 1 

4373 

INPUT  Long  dir$ 

4374 

PRINT  TABXY<29 , 1 

D>" 

4375 

INPUT  Long  deg 

4376 

PRINT  TABXY <29,1 

•  H) " 

4377 

INPUT  Long  min 

4378 

PRINT  TABXY< 1 ,2) 

DEG" , Long  min ; "MIN" 

4379 

1 1 

PRINT  TABXY <30,1 

4380 

1 1 

PRINT  TABXY<29, 1 

4381 

INPUT  Posit  ok$ 

4382 

IF  Posit  ok'S  =  "Y" 

4383 

IF  Posit  ok$="N" 

4384 

BEEP  1200, .5 

4385 

GOTO  4380 

4386 

OUTPUT  2  USING  ", 

4387 

GLOAD  AO) 

4388 

MOVE  36 ,Lat_pos 

4331 

LABEL  "LAT : "  ;  Lat. 

MIN" 

4332 

MOVE  36, Long  pos 

4393 

LABEL  "LONG : " ;Lo 

in ; "MIN" 

4394 

GSTORE  AO) 

4395 

RETURN 

4396  No  key 

:  RETURN 

4397  END 

"FAST  EDIT" 


10 

20 

30 

40 

50 

60 

61 

63 


OPTION  BASE 
GRAPHICS  ON 
GINIT 

INTEGER  A(t 


12480) , G( 1 :  12480) , I . J ,K , Z , Datal <1 :5287> 

ASSIGN  @Punch  TO  8; CONVERT  OUT  BY  PAIRS  Converts 
DIM  Conver t$L2Q0 I 
DATA  0,0,10,3,13.2,27,27.31 .31 

DATA  32.4,33,22.34,0,35.5,36,0,37,0,38,11,39,20,40,30,41,9 
, 42 , 0 , 43 , 1 7 , 44 , 6 , 45 , 24 , 46 . 7 . 47 , 23 , 48 . 1 3 , 49 , 29 , 50 , 25 , 5 1 , 1  6 , 52 . 1  0 . 
53,1 ,54,21 ,55,28,56.12,57,3 

64  DATA  58,14,59,0.60.0,61,15,62,0,63,19,64,0,65,24,66,19,67, 
14,68,18,69, 16,70,22.71 . 1  1 ,72,5,73. 12,74,26,75.30.76,9.77 .7,78,6 
,79,3,80,13.81,29,82,10.83.20 

65  DATA  84.1 ,85.28,86,15,87,25,88,23,89,21 ,90,17,91 ,0,92,0.93 
, 0 , 94 , 0 . 95 , 0 , 96 , 0 , 97 , 24 , 98 , 1 9 , 99 . 1 4 , 1 00 . 1 8 . 1 0 1  , 1 6 , 1 02 , 22 , 1 03 , 1 1  , 
104,5.105,12,106,26.107,30.108.9 

66  DATA  109,7, 1 10.6, 1 1 1 ,3.1 12, 13, 113,29, 1 14. 10, 1 15,20, 1 16, 1 , 1 
1 7 , 28 , 1 1 8 , 1 5 . 1 1 9 , 25 , 1 20 . 23 . 1 2 1 , 21 . 1 22 , 1 7 , 1 23 . 0 . 1 24 . 0 . 1 25 , 0 . 1 26 , 0 
,127,0 


67  FOR  1=1  TO  200 

68  READ  Conv_data 

69  Converts!  1 3 =CHR$< Conv_data) 

70  NEXT  I 

72  W$="LAT : " 

80  X$="DEG" 

90  Y$="MIN" 

100  Z$="LONG : ” 

110  OFF  KEY 

120  FOR  1=1  TO  40 


130  PRINT  TABXY (30,8) ; "  FAST  BT  EDIT  PROGRAM  " 

140  PRINT  TABXY (1+18,8) , ; 

150  NEXT  I 

160  PRINT 

170  FOR  1=1  TO  10 

180  PRINT  TABXY< 1 9 , 1+8) , ; 

190  FOR  J=1  TO  38 

200  PRINT  " 

210  NEXT  J 

220  PRINT 

230  NEXT  I 

240  FOR  1=1  TO  40 

250  PRINT  TABXY(I+18. 19) 

260  NEXT  I 

270  PRINT  TABXY(29, 12) ; "ENTER  FLIGHT  NO.  AND" 

280  PRINT  TABXY<26 , 1 3 > ; ”  PRESS  CONTINUE 
290  INPUT  Flight 

300  PRINT  TABXY (0.1); "FLIGHT  NUMBER" : F 1 iqht ; "SELECTED" 

350  PRINT  TABXY (29,12) ; "  ENTER  BT  TYPE 


360  PRINT  TABXY<26, 13) ;"<S=SHALLOW,D=DEEP,M=MIXED>" 

370  PRINT  TABXY<29 ,14); "AND  PRESS  CONTINUE" 

380  INPUT  Type$ 

390  IF  Type$="S"  THEN  430 

400  IF  Type$="D"  THEN  450 

410  IF  Type$="M"  THEM  470 

420  GOTO  350 

430  PRINT  TABXY ( 0 , 3) ; "BT  TYPE  IS  'SHALLOW'" 

440  GOTO  480 

450  PRINT  TABXY(0 .3) ; "BT  TYPE  IS  "DEEP' 

460  GOTO  480 

470  PRINT  TABXY <0.3) : "BT  TYPE  IS  'MIXED'  " 

480  BEEP  1000,.  5 

490  PRINT  TABXY <26 .13) ;CHR$(  131);"  IS  ALL  DISPLAYED  INFO  OK?' 
;CHR$< 128) 

500  PRINT  TABXY <29, 12) 

510  PRINT  TABXY <29,14) 

520  INPUT  Ok$ 

530  IF  Ok$="Y"  OR  Ok$="YES"  THEN  560 

540  IF  Ok$=”N"  OR  Ok$="NO"  THEN  270 

550  GOTO  490 

560  IF  TyPe$="S"  THEN  700 

570  Posi tion=-222 

580  Se lect_no1 =  -1 96 

590  Select_no2=26 

600  Bt_pos=50 

610  T_pos=20 

620  Lat  _pos=- 1  0 

630  Long_pos=-4Q 

640  Cars_labl=~70 

650  Data_Iab 1  =  - 1 60 

660  Data_header  =  - 1  90 

670  Samp le_max =5280 

680  Data_pos=26 

690  GOTO  820 

700  Pos i t ion=- 1 1 1 

710  Select_no1 =-98 

720  Se lect_no2=  1  3 

730  Bt_pos=25 

740  T  _pos=10 

750  Lat  _pos=-5 

760  Long_pos=-20 

770  Cu.rs_Iabl=-35 

780  Data_lab 1 =-80 

790  Data_header =-95 

800  Samp le_max =2640 

810  Data_pos=13 

820  BEEP  1000,.  5 


830  PRINT  TABXY<26 ,13); CHR$< 130) PRESS  CONTINUE  TO  START 
;CHR$( 1 28) 

840  PAUSE 

850  OUTPUT  2  USING  . B" ; 255 , 75 
860  OUTPUT  70401 ; "RW" 

870  GOSUB  Rewind_fin 
880  OUTPUT  70401 ;”SF1" 

890  GOSUB  Com_ready 
900  OUTPUT  70401 ;MRR1" 

910  ENTER  70402  USING  "# , W" ; Month , Day , Year , FI ight2 , Type ,Fi rst 

920  IF  Flight2=Fl ight  THEN  940 

930  GOTO  880 

940  OUTPUT  70401 ;"RR1" 

850  ENTER  70402  USING  M*,W";Bt_2 
972  IF  Bt_2=7000  THEN  981 

980  GOTO  990 

981  BEEP  1000,, 5 

982  PRINT  T ABXY <27.10); CHR$ <131); "END  OF  FLIGHT - !!";CHR$< 

128> 

984  GOTO  4396 

990  ENTER  70402  USING  . W" jDatal <*> 

1000  Bt=Bt_2 
1010  T1=Data1<1) 

1020  T2=Data1 (2) 

1030  T3=Data1(3> 

1040  T1$=VAL$(T1 ) 

1050  T2$=UAL$(T2). 

1060  T3$=VAL$( T3) 

1070  Colon$=" : " 

1 080  T4$=T1 $&Colon$&T2$AColon$&T3$ 

1090  Wordl =Data1 <4) 

1100  Word2=Data1 (5) 

1110  GOSUB  Posit 
1120  IF  Di r=3  THEN  1150 
1130  Lat_dirS="N" 

1140  GOTO  1160 
1150  Lat_d i r$="S" 

1160  Lat_deg=Deg 
1170  Lat_min=Hin 
1180  Wordl =Data1 <6) 

1190  Word2  =  Data1  (7) 

1200  GOSUB  Posit 

1210  IF  B  i r =3  THEN  1240 . 

1220  Loag_di r$="E" 

1230  GOTO  1250 
1240  Long_di r$="W" 

1250  Long_deg=Deg 
1260  Long_min=Hin 


1261 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1 340 

1350 

1360 

1370 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1390 

1401 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1430 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1591 

1600 

1610 

1620 

1630 

1640 

1650 

1660 


OFF  KNOB 

VIEWPORT  0,125,9.100 
IF  Type$="S"  THEN  1330 
WINDOW  -7,53.7,-810.60 
ASSIGN  @Path1  TO  "EDIT_GRID2" 

ENTER  @Path1 ;G<*) 

GOTO  1360 

WINDOW  -7,53.7.-405,30 
ASSIGN  ®Path1  TO  "EDIT_GRID" 

ENTER  ®Path1 ;G<*> 

GLOAD  G(*) 

ON  KEY  0  LABEL  "SELECT  DATA"  GOSUB  Select 
ON  KEY  1  LABEL  "STOP"  GOSUB  Stop 
ON  KEY  2  LABEL  ""  GOSUB  No_key 

ON  KEY  3  LABEL  ""  GOSUB  No_key 

ON  KEY  6  LABEL  ""  GOSUB  No_key 

ON  KEY  7  LABEL  ""  GOSUB  No_key 

ON  KEY  8  LABEL  ""  GOSUB  No_key 

ON  KEY  4  GOSUB  No_key 

ON  KEY  5  LABEL  "DELETE  DATA"  GOSUB  Delete 
ON  KEY  9  LABEL  "NEXT  BT"  GOSUB  Term 
LINE  TYPE  1 
PEN  1 

DIM  Depthl (5280) , Temp  1 <5280) 

DIM  Temp2<23) ,Depth2<23) .Message (31 ) ,Data(23) 

FOR  U=0  TO  528  STEP  .  . 1 
Depthl <J)=-1 .5926*U 
J= J  + 1 
NEXT  U 

FOR  1=1  TO  5280 

IF  Datal  (I+7)>6945  OR  Datal  ( 1+7X3700  THEN  1540 

Tempi ( I)=< (1 /(Datal <I+7)*1 . E-7 ) ) -1 440 ) /36 

GOTO  1550 

Temp  1 ( I ) =-5 

NEXT  I 

J  =  0 

K=0 

MOVE  0,0 

FOR  1=2  TO  Sample_max 

IF  Tempi (I)=-5  OR  Tempi < 1-1 )=-5  THEN  1620 
MOVE  Tempi <1-1 ) .Depthl < 1-1 ) 

DRAW  Tempi ( I) .Depthl ( I) 

NEXT  I 
CSIZE  3 
LORG  8 

FOR  1=1  TO  23 

MOVE  39, (Select _ no  1 +( -I*Select  no2)) 


1670  LABEL  I 
1680  NEXT  I 
1690  MOVE  36, Bt _pos 
1700  LORG  2 

1710  LABEL  "BT  NO. :";Bt 
1720  MOVE  36 , T _pos 
1730  LABEL  "TIME:";T4$ 

1740  MOVE  36 ,Lat _pos 

1750  LABEL  "LAT : " ;Lat_dir$ ;Lat_deg ; "DEG" ; Lat_min ; "MIN" 

1760  MOVE  36 , Long_pos 

1770  LABEL  "LONG :"; Long_di r$ ; Long_deg ; "DEG" ; Long  min:"MIN" 

1780  MOVE  36 , Curs_lab 1 

1790  CSIZE  2.9 

1800  LABEL  "CURSOR:" 

1810  MOVE  36 . Data_Iabl 
1820  CSIZE  3 

1830  LABEL  "SELECTED  DATA:" 

1840  MOVE  38 . Data_header 
1850  CSIZE  2.5 

1860  LABEL  "TEMP(DegC)  DEPTH<M) ” 

1870  GSTORE  A<*> 

1871  ON  KEY  4  LABEL  "MANUAL  POSIT."  GOSUB  Manual _posit 
1880  MOVE  0.0 

1890  1=1 

1900  K=0 

1910  Select=1 

1920  GOSUB  Select 

1930  ON  KNOB  .080  GOTO  1950 

1940  GOTO  1980 

1950  PEN  -1 

1960  DRAW  Tempi <I)-5.Depth1 (I) 

1970  PEN  1 

1980  K=KNOBX 

1990  I=I+K 

2000  IF  I<1  THEN  1=1 

2010  IF  I>Samp le_max  THEN  I=Sample_max 
2020  PRINT  TABXY<56 ,3) 

2030  PRINT  TABXY <56.4) ;PROUND(Temp ! (I) .-2) : "DEG" . PROUND< -Depth  1 
< I ) , -1 ) ; "M 

2040  IF  Terminate= 1  THEN  GOTO  Next 
2050  MOVE  Tempi <I)-5.Depth1 (I) 

2060  DRAW  Tempt (I)+5. Depth! <I) 

2070  IF  Depthl <I)>-50  THEN  2090 
2080  GOTO  2100 
2090  WAIT  .020 
2100  GLOAD  A<*> 

2110  GOTO  2040 
2120  J=0 


2130  Select: 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


OFF  KEY  1 
CSIZE  3 
IF  Select=1 


THEN  2230 


2230 

2240 

-2) , PROUND<- 

2250 

2260 

2270 

2280 

2290 

2300 

231.0 

2320 

2330  Stop: 

2340 

2350 

2360 

2370 

ES  SELECTED" 
2380 

E  ANYTHING?" 

2390 

2400 

2410 

2420 

2510 

2520 


MOVE  Tempi ( I ) -5 , Depthl < I > 

LORG  8 

LABEL  Select 

MOVE  Tempi ( I ) -5 , Depthl < I ) 

DRAW  Temp  1 ( I ) +5 , Dep th 1 ( I ) 

LORG  2 

LABEL  Select 
MOVE  38, Posit  ion 

LABEL  USING  "2X , DD . DD ,X . 2X ,DDD . D" ;PR0UND< Tempi ( I) , 
Depthl <I> , -2) 

GSTORE  A<*> 

Temp2(Select)=Temp1 ( I) 

Depth2<Seiect)=-Depth1  (I> 

Select=Select+1 

IF  Se lect>23  THEM  GOSUB  Stop 

Pos i t ion=Posi t ion-Data_pos 

ON  KEY  1  LABEL  "STOP"  GOSUB  Stop 

RETURN 

BEEP  1000,  .5 
GRAPHICS  OFF 
ALPHA  OFF 

IF  Select<23  THEN  GOTO  2380 
PRINT  TABXY<24, 11 ) ;CHRS< 131 ) 

: CHR$< 1 28) 

PRINT  TABXY<24, 12) ;CHR$( 131 ) 

:CHR$< 128) 

INPUT  Change$ 

IF  Change$="YES"  OR  Change$="Y"  THEN  2520 
IF  Change$="N0"  OR  Change$="N"  THEN  2510 
GOTO  2400 
GOSUB  Jjxx 
PRINT  TABXY (24 , 1 1 ) 


'MAXIMUM  NO.  OF  SAMPL 
'DO  YOU  WANT  TO  CHANG 


>530 


PRINT  TABXYC24 ,12) 


2540 

2550 

25b0  Jjxx: 
2570 

p2 ( I ) , - 1 ) ) 

2580 

2590 

2600 

2610 

2620 


GRAPHICS  ON 
RETURN 

FOR  1=1  TO  Select- 1 

Data< I>=1 0*< < (PR0UND<Depth2<I) , 0 ) >*1 00 ) +PR0UND ( Tern 
NEXT  I 

MAT  SORT  Data(*>  DES 
Add  =  0 
Layer=0 
K=  1 


2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2730 

2790 

2800 

2810 

2820 

2330 

3080 

3090 

3100 

3110  Delete : 

3120 

3130 

3140 

3150 

3160 

3170 

3130 

3190 

3200 

3210 

IN" 

3220 

?"  :CHR$(128) 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 


FOR  I-Select-1  TO  1  STEP  -1 
Layer  =  INT  <Data< I)* . 00001  > 

IF  Layer>Add  THEN  GOTO  2670 
GOTO  2710 

Message (K) =999 00+L ay er 
! PRINT  USING  "ZZZZZ" ;Message(K) 

Add=Layer 

K=K+1 

Message(K) =Data( I > - (Layer*1  00000 ) 

! PRINT  USING  "11111" : Message <K> 

K=K  +  1 
NEXT  I 

OUTPUT  2  USING  255, 75 

PRINT  TABXY(20 , 1 2) ; "ENTER  QUADRANT  NUMBER  AND" 
PRINT  TABXY(24, 13) : "PRESS  CONTINUE" 

INPUT  Quad 

OUTPUT  2  USING  "*,B";255,75 
J  jxx$=" JJXX" 

T4=T 1 *1 00+T2 

Ind=888.88 

Slant.$="/" 

GOSUB  Punch 
Terminate= 1 
RETURN 
LORG  2 
CST7F  3 

MOVE  36,Bt_Pos  . 

PEN  -1 

LABEL  "BT  NO.:";Bt 
MOVE  36 , T_pos 
LABEL  "TIME : " ;  T4$ 

MOVE  36,Lat_pos 

LABEL  "LAT : " ; Lat_d i r$ ; Lat_deg ; "DEG" ; Lat_mi n ; "MIN" 
MOVE  36,Long_pos 

LABEL  "LONG : " ; Long_di r$ ; Long_deg ; "DEG" ; Long_mirt ; "M 
PRINT  TABXYC55, 1 ) ;CHR$( 131) ; "DELETE  DATA  POINT  NO. 
INPUT  Number 

MOVE  Temp2 (Number ) -5 . -Dep tn2( Number ) 

LORG  8 
PEN  -1 

LABEL  Number 

MOVE  Temp2  (Number )  -5  ,  -Dep th2( Number ) 

DRAW  Temp2( Number) +5 , -Dept h2 ( Number ) 

LORG  2 

LABEL  Number 

FOR  I=Number+1  TO  Select-1 


3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 


HOVE  Temp2 < I ) -5 , ~Depth2( I ) 

LORG  8 
PEN  -1 
LABEL  I 

MOVE  Temp2<I>-5.-Depth2<I> 

PEN  1 
LABEL  1-1 

MOVE  Temp2 ( I ) +5 , -Deoth2 < I ) 

LORG  2 
PEN  -1 
LABEL  I 

MOVE  Temo2 ( I ) +5 , -Bep t h2 ( I > 

PEN  1 
LABEL  1-1 
NEXT  I 

FOR  I=Number  TO  Select-1 
HOVE  38 ,  <Select_rto1  +(-I*Select  no2)) 

LORG  2 
PEN  -1 

LABEL  USING  "2X , DD . DD , X ,2X , DDD .D" ;PR0UND(Temp2< I ) , 
-2)  .PR0UND(Depth2(I) ,-2> 

3530  IF  1=23  THEN  3560 

3540  Temp2 ( I ) =Temp2 < 1+ 1 ) 

3550  Depth2( I)=Depth2< 1+1 ) 

NEXT  I 
PEN  1 

FOR  I=Nujnber  TO  Select-2 
3590  MOVE  38 , <Select_no1 +  < -I*Select  no2)> 

3600  LORG  2 

6610  LABEL  USING  "2X , DD . DD ,X , 2X , DDD . D" ;PR0UND( Temp2( I) , 

-2) ,PR0UND<Depth2(I) ,-2> 

NEXT  I 

Select=Select-1 
Position=Posi t icm+Data_pos 
PRINT  TABXY<55 , 1  )  ; 

HOVE  36 . Bt_pos 
PEN  1 

LABEL  ’’BT  NO.  :”;Bt 
MOVE  36 , T_Pos 
LABEL  "TIME : " ; T4$ 

MOVE  36 . Lat_pos 

LABEL  "LAT : " ; Lat_di r$ ; Lat_deg ; "DEG" ; Lat_min ; "MIN" 
MLIVE  36 ,  Long_pos 

LABEL  "LONG : " ; Long_dl r$ ; Long_deg ; "DEG" ; Long_min ; "M 


3560 
35 


Q570 


358 


3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

IN" 

3750 

3760 

QQ 


880  Next 


GSTORE  A<*> 

RETURN 

OUTPUT  2  USING  , B"; 255 , 75 


3890 

3940 

3990 

4000 

4010 

4020 

4021 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 


Nextl:  GCLEAR 

Terminate=Q 

IF  Type$="S"  THEN  4020 
Posi tion=-222 
GOTO  4030 
Positional 1 1 
OFF  KNOB 
GOTO  940 

Posit:  Digit<4> =SHIFT  (Wordl .12) 

FOR  1=3  TO  1  STEP  -1 
Wo  i'd  1  “ROTATE  (Word  1  .-4) 

Digit<I)=SHIFT( Wordl ,12) 

NEXT  I 

Min=<Digit<3)*10)+Digit(2>+<Digit(1 )* . 1 ) 
Dir=SHIFT(Word2,6) 

Digit < 6)= ROTATE < Wo rd2, 6) 
Digit(6)=SHIFT(Digit<S> ,14) 

Digi t (5) =ROTATE( Word2 ,4) 

Dig it<5> “SHIFT  <Digit<5) ,12) 

Deg=Digi t (6)*1 00+Digit(5)*1 0+Digit(4) 

RETURN 

Rewind_fin:  ENTER  70401  :P1  ,P2,P3,P4 

IF  B I T < P2 , 3 ) =  0  OR  BIT<P2,5)=1  THEN  4170 
RETURN 

Com_ready :  ENTER  7040 1  ; PI  ,  P2  , P3 , P4 

IF  BIT <P1 ,4>  =  0  THEN  4200 
RETURN 


4230  Punch:  IMAGE  *,A,A,ZZ,ZZ,Z.A,ZZZZ.A,A,D,ZZ.ZZ,A,ZZZ,ZZ,A, 

DDDDD 


423 1  OUTPUT  ©Punch  USING  ’V.A.AAAA" ;CHR$(31 ) , JjxxS 

4240  OUTPUT  ©Punch  USING  Punch ;CHR$<32) , CHR$ <27 ) . Day . Mo 

nth , 4 , CHR$<32 ) , T4 , SI ant$ , CHR$<32) , Quad , Lat_deg , Lat_min , CHR$( 32) , 
Long_deg , Long_m i n , CHR$  <  32 ) , 88388 


4250 
R$< 1 0) 

OUTPUT  ©Punch 

USING 

4260 

Line=1 

4270 

FOR  Loop=1  TO 

K-1 

4280 

(32) 

OUTPUT  ©Punch 

USING 

4290 

Line=Line+1 

4300 

IF  L  ine  =  7  THEN  4320 

4310 

GOTO  4330 

4320 

OUTPUT  ©Punch 

USING 

R$  < 1 0 ) 

4321 

L  ine= 1 

4330 

NEXT  Loop 

4340 

OUTPUT  ©Punch 

USING 

,  "VXN" 

, CHR$<27)  ,8  ,CHRS(31 )  ,i 

CHR$( 1 

. A , A , A" ; CHR$( 13), CHR$( 13) , CH 

'V.ZZZZZ ,A" ;Message<Loop) ,CHR$ 

'V , A , A , A" ; CHR$< 1 3) ,CHR$(13) ,CH 

, A , AA A , A , D , A . A , A , A" : CHR$ (31) 
> , CHR$  < 1 3 ) , CHR$  < 1 0 ) 


4350  RETURN 

4351  Term:  Terminated 

4352  RETURN 

4353  No_key:  RETURN 

4354  Maruial_posi t :  GCLEAR 


4355 

4356 

4357 

4358 
MIN" 

4353 

4360 

in ; "MIN" 

4361 

4362 

4363 

4364 

4365 

4366 

4367 

4368 

1 1 

4369 

4370 
M>  ” 

4371 

4372 

"  ,  Lat_m  in  ;  "MIN' 

4373  ‘ 


GLOAD  A(») 

MOVE  36 . Lat_pos 
PEN  -1 

LABEL  "LAT : " ; Lat_di r$ ; Lat_deg ; "DEG" ; Lat_m in ; 
MOVE  36,Long_pos 

LABEL  "LONG  : "  :Long_dir$  ;  Long.._deg ;  "DEG"  ;  Long_m 

GSTORE  A(  *) 

GCLEAR 
PEN  1 

OUTPUT  2  USING  'V.B";255.75 

PRINT  TABXY <29,12): "ENTER  LAT  OCTANT (N  OR  Si" 
PRINT  TABXY (32,13): "AND  PRESS  CONTINUE" 

INPUT  Lat_dir$ 

PRINT  TABXY (29.12) : "  ENTER  LATITUDE  DEG.(DD) 
INPUT  Lat_deg 

PRINT  TABXY(29 ,12) ; "  ENTER  LATITUDE  MIN. (MM. 
INPUT  Lat_miri 

PRINT  TABXY < 1 . 1 ) ; "LAT=" ,Lat_dir$ : Lat_deg ; "DEG 
PRINT  TABXY  (23. 12)  :  "ENTER  LONG  OCTANT (E  OR  14) 


4374 

4375 
D>" 

4376 

4377 
.M)" 

4378 

4379 

DEG" ;Long_min : "MIN" 

4380 

i  f 

4381 
» * 

4382 

4383 

4384 

4385 

4386 


INPUT  Long_dir$ 

PRINT  TABXY (29,12) :" 

INPUT  Long_deg 
PRINT  TABXY (29,1 2) ; " 


ENTER  LONGITUDE  DEG . < DD 
ENTER  LONGITUDE  MIN. (MM 


INPUT  Lona_min 

PRINT  TABXY (1 ,2) : "LONG=" , Long_dir$ ;Long_deg ; ” 


PRINT  TABXY (32 , 13) 
PRINT  TABXY(29,12) ; " 


ALL  DISPLAYED  INFO  OK? 


INPUT  Posit_ok$ 

IF  Pos i t_ok $="Y"  OR  Posit_ok$="YES"  THEN  4387 
IF  Pos i t_ok$="N"  OR  Pos i t_ok$="NO"  THEN  4364 
BEEP  1200.. 5 
GOTO  4381 


4387 

4388 

4389 

4390 

MIN" 

4391 

4392 

in; "MIN" 

4393 

4394 

4396  END 

OUTPUT  2  USING  "#  ,B" ; 255 , 75 

GLOAD  A<*> 

MOVE  36,Lat  pos 

LABEL  "LAT : " ; Lat_d i r$ ; Lat_deg ; "DEG" ; Lat_min 

MOVE  36,Long_pos 

LABEL  "LONG : " ; Long_d i r$ ; Long_deg ; "DEG" ; Long 

GSTORE  A<*> 

RETURN 

"SYS  CHEK 


OPTION  BASE 


INTEGER  Wordl  ,Word2, 1  ,K,Chek  (1:1  024)  , Rechek  (1:1 024) 


10 

11  ON  KBD  GOSUB  Key 

12  Nextchek=Q 

13  PRINTER  IS  1 
20 
21 

23  »********«**<.*NflvIGATI0N  INTERFACE  CHECKOUT*************** 

*  *  *  *  *  *  *  ¥: 

24  ON  TIMEOUT  12.2  GOTn  G8 

CHR$(128)NT  TABXY<24‘15>^HR$U31);"N0W  CHECKING  NAV  INTERFACE”; 

26  PRINT  TABXY (24,17); "PRESS  ANY  KEY  TO  CONTINUE" 

IF  Nextchek  =  1  THEN  34 
CONTROL  12,3:0 
CONTROL  12,3:8 
ENTER  12  USING  "#,W";Long2 
CONTROL  12,3:9 
enter  12  using  "^.w'lLongi 
CONTROL  12,3; 10 
ENTER  12  USING  "*,W":Lat2 
CONTROL  12,3:11 
ENTER  12  USING  M*.WM;Lat1 
Wordl =Lat1 


27 

30 

32 

33 


Word2=Lat2 
GOSUB  Posit 
IF  Dir=3  THEN  52 
Dir$="N" 

GOTO  55 
D i r$="S" 

PRINT  TABXY (1  .1) 


-AT" ,Dir$; Deg ; "DEG" , Min ; "MIN" ; " 


36 

37 

41 

42 

44 

45 

46  Lat 

47 

48 

43 

50 

51 

52 

55 

i  i 

56 

58  Long: 

53 
60 
61 
62 

63 

64 

65 

66 

67 

68  Navprob:  OUTPUT  2  USING  "#,B";255  75 

63  FOR  1=1  TO  10 

70  BEEP  1200, .1 

71  BEEP  800,. 1 

72  NEXT  I 

74  PRINT  TABXY (22, 13) ;CHR$( 131 ) ; "NAV  INTERFACE  NOT  RESPONDING 


PRINT  Lat 1 , Lat2 
Wordl =Long1 
Word2=Long2 
GOSUB  Posit 
IF  Dir =3  THEN  64 
D i r$="E” 

GOTO  65 
Dir$="W" 

PRINT  "LONG" , Dir$ : Deg : "DEG" . Min ; "MIN" ; " 
PRINT  Longl , Long2 
GOTO  25 


!  ?  •’  ;CHR$<  1 28) 

75  PRINT  TABXY<22.17>;" 'PRESS  ANY  KEY  TO  CONTINUE  SYSTEM  CHECK 

« i 

76  IF  Nextchek  =  f  THEN  S4 

77  GOTO  76 

78  Posit:  Digit<4)=SHIFT<Word1 ,12) 

79  •  FOR  1=3  TO  1  STEP  -1 

80  Wordl =ROTATE(Word1 ,-4> 

81  Digit<I)=SHIFT<Word1 ,12) 

82  NEXT  I 

83  Min=(Digit(3>*10)+Digit<2)+(Digit<1>*.1) 

84  Dir=SHIFT(Word2 , 6) 

85  Digit<6)=R0TATECWord2,6) 

86  Digit ( 6) =SHIFT <Digit<6) .14) 

87  Digi t<5>=R0TATE<Word2,4> 

88  Digit<5)=SHIFT<Digi t<5> ,12) 

89  Deg=D ig i t(6)*100+Digit(5>*10+Digit(4) 

90  RETURN' 

91  ! 

93  t  ******-**-**-**-*****--**9N9|_O0  INTERFACE  CHECKOUT*-***-***-**-**-*-* 

******•****■***•*■* 

94  OUTPUT  2  USING  "# , B" : 255 , 75 

95  ON  TIMEOUT  12,2  GOTO  Analog_probiem 

96  Mex  tchek  =0 

97  PRINT  f ABXY (24,15); CHR$< 131): "NOW  CHECKING  ANALOG  INTERFAC 
E” *  CHR$ ( 128) 

98’  ■  PRINT  TABXY<24. 17) : "PRESS  ANY  KEY  TO  CONTINUE" 

99  IF  Nex tchek =1  THEN  179 

100  PRINT 

101  CONTROL  12,3:0 

102  CONTROL  12,3:16 

103  CONTROL  12:32 

104  Form:  IMAGE  AAAA , 1 X , Z ,3X , Z . DD 

111  FOR  1=1  TO  8 

121  ENTER  12  USING 

125  B(I)=A(I)*. 001220712 

126  PRINT  TABXYC1 .1) 

128  PRINT  USING  Form ; "CHAN" : I ,B( I) 

131  NEXT  I 

166  GOTO  97 

167  Anal og_p rob 1 em :  OUTPUT  2  USING  "# , B" : 255 . 75 

168  FOR  1=1  TO  10 

169  BEEP  1200,  .  1 

170  BEEP  800.  .1 

171  NEXT  I 

172  PRINT  TABXY<22, 13) :CHR$< 131 ); "ANALOG  INTERFACE  NOT  RESPOND 

ING! !":CHRS(128) 

173  PRINT  TABXY (22,17); "PRESS  ANY  KEY  TO  CONTINUE  SYSTEM  CHECK 


OUT" 

174  IF  Nextchek=1  THEN  GOTO  179 

175  GOTO  174 

176  ! 

173  !  ***t*****e*******e***t TAS  INTERFACE  CHECKOUT**********'*'****** 

**r**r*r  *:*,*:*:*** 

179  OUTPUT  2  USING  "*,B";255,75 

180  ON  TIMEOUT  12,2  GOTO  Tas_problem 

181  Nextchek=0 

182  PRINT  TABXY (24,15); CHR$( 1 3 1 > : "NOW  CHECKING  TAS  INTERFACE"; 
CHR$( 1 28) 

183  PRINT  TABXY(24 .17); "PRESS  ANY  KEY  TO  CONTINUE" 

184  CONTROL  12,3;0 

185  CONTROL  12.3;32 

186  IF  Nextchek=1  THEN  231 

188  ENTER  12  USING  "# , W" ; Tascount 

1 89  Spd=  <  .  2442*Tascou.nt )  +149.4618 

190  Spd=PROUND<Spd , - I ) 

198  PRINT  TABXY (1,1) ; "COUNT®" ; Tascount 

199  PRINT  "TRUE  AIR  SPEED=" : Spd ; " 

208  WAIT  .1 

218  GOTO  186 

219  Tas_Probi em :  OUTPUT  2  USING  "#tB";255,75 

220  FOR  1=1  TO  10 

221  BEEP  1200, .1 

222  BEEP  800, .1 

223  NEXT  I 

224  PRINT  TABXY (22.13) ;CHR$< 131 ) ;"TAS  INTERFACE  NOT  RESPONDING 
!  ! "  :CHR$< 1 28> 

225  PRINT  TABXYC22, 17) ; "PRESS  ANY  KEY  TO  CONTINUE  SYSTEM  CHECK 
OUT" 

226  IF  Nextchek=1  THEN  231 

227  GOTO  226 

228  ! 

230  !******************.»**prini-ER  CHECKOUT***  ****************** 

231  OUTPUT  2  USING  ,V.B";255,75 

232  UN  TIMEOUT  7,2  GOTU  Pr inter_problem 

233 

234  PRINT  TABXY<24 , 1 5> ; CHR$< 131); "NOW  CHECKING  PRINTER" ;CHR$< 1 
28) 

235  PRINTER  IS  701 

236  PRINT  "PRINTER  IS  OK--PRINTER  IS  OK— PRINTER  IS  OK--PRINTE 
R  IS  OK--PRINTER  IS  OK" 

237  PRINTER  IS  1 

238  PRINT  TABXY <24 .17); "PRINTER  IS  OK  -  PRESS  ANY  KEY  TO  CONTI 
NUE  SYSTEM  CHECKOUT” 

240  GOTO  250 


241  Pr inter_problem :  OUTPUT  2  USING  "* , B" : 255 . 75 

242  PRINTER  IS  1 

244  FOR  1=1  TO  10 

245  BEEP  1200..1 

246  BEEP  800,.  1 

247  NEXT  I 

248  PRINT  TABXY (22 ,13); CHR$A 131); "PRINTER  IS  NOT  RESPONDING!!" 
;CHR$< 1 28) 

249  PRINT  TABXY (22 , 17) ; "PRESS  ANY  KEY  TO  CONTINUE  SYSTEM  CHECK 
OUT" 

250  IF  Nextchek  =  1  THEN  255 

251  GOTO  250 

252  ! 

254  !******************paper  JAPE  PUNCH  CHECKOUT************** 
*****•****■*■*«••*■■)<■*• 

255  OUTPUT  2  USING  'V,B";255.75 

256  ON  TIMEOUT  8,2  GOTO  Punch._problem 

258  PRINT  TABXYC24. 15) ;CHR$<131 > ;"NOW  CHECKING  PAPER  TAPE  PUNC 
H" ;CHR$< 1 28) 

259  FOR  J=1  TO  2 

260  FOR  1=1  TO  100 

261  OUTPUT  8  USING  'V . A" ; CHR$( 1 27 ) 

262  NEXT  I 

263 

264 

265 

266 


FOR  1=1  TO  100 

OUTPUT  8  USING  ,A" ;CHRS< 0) 
NEXT  I 
NEXT  J 


?67  PRINT  TABXY (24,17): "PAPER  TAPE  PUNCH  OK  -  PRESS  ANY  KEY  TO 
CONTINUE" 


GOTO  276 


268 

269  P line h_P rob lem :  OUTPUT  2  USING  "#,B";255.75 

270  FOR  1=1  TO  10 

271  BEEP  1200, . 1 

272  BEEP  800..  1 

273  NEXT  I 

274  PRINT  TABXY( 22.13) :CHR$< 131 > : "PUNCH  IS  NOT  RESPONDING!!!"; 
CHR$( 128) 

?5 

OUT" 

276  IF  Nex tchek  =  1  THEN  282 

277  GOTO  276 

278  ! 

280  j ****»**w«****tape  RECORDING  SYSTEM  CHECKOUT************** 

'DO 


275  PRINT  TABXY <22. 17) ; "PRESS  ANY  KEY  TO  CONTINUE  SYSTEM  CHECK 


282 

285 

286 


ON  TIMEOUT  7.2  GOTO  Tape_problen. 
Nextchek  =0 

OUTPUT  2  USING  "# ,B" ; 255 , 75 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

■ 

i 

i 

. 

I 

I 


287  PRINT  TABXY<24. 15) :CHR£< 131 ) ;"NOW  CHECKING  TAPE  $YSTEM";CH 
R$< 1 28) 

288  OUTPUT  7040 1 ; "RW" 

289  GOSUB  Rem i nd_f i n 

290  FOR  1=1  TO  1024 

291  Chek  < I)  =  I 

292  NEXT  I 

295  OUTPUT  70401  :  "WF." 

296  GUSUB  Com_ready 

297  OUTPUT  70401  ;”ED,  2048. 0  ;  WR1  ** 

299  OUTPUT  70402  USING  "# , W" :Chek <* > 

300  GOSUB  Com_ready 

301  OUTPUT  70401 ;"RW" 

302  GOSUB  Reuind_fin 

303  OUTPUT  70401  ;”Sn" 

304  GOSUB  Com_ready 

306  OUTPUT  70401 : "RR1" 

307  ENTER  70402  USING  *V  ,W" jRechek <*> 

308  GOSUB  Com_ready 

309  PRINT  TABXY<24 ,17); "TAPE  SYSTEM  OK  -  PRESS  ANY  KEY  TO  CONT 
INUE" 

310  GOTO  318 

311  T ape_problem :  OUTPUT  2  USING  'V.BM:255,75 

312  FOR  1=1  TO  10 

313  BEEP  1200, . 1 

314  BEEP  800, .1 

315  NEXT  I 

316  PRINT  TABXY (22, 13) :CHR$< 131) :"TAPE  IS  NOT  RESPONDING! !" ;CH 
R$( 1 28) 

317  PRINT  TABXY <22.17): "PRESS  ANY  KEY  TO  CONTINUE  SYSTEM  CHECK 
OUT" 


318  IF  Nex tchek  =  1  THEN  321 

319  GOTO  318 


321  OUTPUT  2  USING  "# , B" ; 255 , 75 

322  Nextchek=0 

323  PRINT  TABXY <24.15); CHR$( 131): "NOW  CHECKING  AXBT  DATA  ACOUI 
SITION" ; CHR$( 1 28) 

324  PRINT  TABXY<24, 17) ; "PRESS  ANY  KEY  TO  CONTINUE" 

325  IF  Nex tchek =1  THEN  392 

326  PRINT  TABXY(O.O) 

327  ON  TIMEOUT  12,2  GOTO  Axbt_ProbIem 

328  Interfaced 

329  Next_line=1 

330  CONTROL  12,3:15 

331  STATUS  12.5;Stio1 

332  IF  BIT(Stio1 ,0)  THEN  Status 1_problem 


333  ENTER  12  USING  "a . W" : Chanl 

334  F  req 1  =  1 / <  Chan  1*1 . E- 7  > 

335  Freql =PR0UND<Freq1 .-0) 

336  Tempi  =  (Freql -  1 440 ) /36 

337  Tempi =PROUND( Tempi , -2) 

340  PRINT  TABXY (0,2) : "CHAN  1:  FREQ=":Freq1 :"HZ  TEMP=" ; Tempi ; " 
DEG  C 

341  Interface=2 

342  Next_line=2 

343  CONTROL  12.3; 14 

344  STATUS  12.5:Stio2 

345  IF  BIT (Stio2 , 0)  THEN  Status2_prob lem 

346  ENTER  12  USING  "A,W":Chan2 

347  Freq2= 1 / (Chan2* 1 . E-7  > 

348  Freq2=PROUND(Freq2.-0) 

349  Temp2= (Freq2- 1 440 ) /36 

350  Temp2=PR0UND(Temp2,-2) 

351  PRINT  TABXY(0 .4) ;"CHAN  2:  FREQ=" ; F req2 ; "HZ  TEHP=" ; Temp2 ; 
DEG  C 

352  Interface=3 


353  Nex  t_l ine=3 

354  CONTROL  12.3; 13 

355  STATUS  12,5;Stio3 

356  IF  BIT(Stio3.0>  THEN  Status3_problem 

357  ENTER  12  USING  "a , W" ;Chan3 

358  F  req3= 1 / ( Chan3* 1 . E-7 > 

359  Freq3=PROUND(Freq3.-0> 

360  Temp3=(Freq3-1440)/36 

361  Temp3=PR0UND(TemP3,-2) 

362  PRINT  TABXY  (0.6)  :  "CHAN  3:  FREQ  =  ',:Freq3;',HZ 
DEG  C 


TEMP=" ; Temp3 ; " 


363  WAIT  .5 

364  GOTO  325 

365  Statu.s1_problem :  1 

366  PRINT  TABXY (0 ,2) ;CHR$( 131 > ; "STATUS 

NAL  f !  " ;CHR$( 1 28) 

367  GOTO  341 

368  Statas2_problem :  ! 

369  PRINT  TABXY(0 ,4) ;CHR$( 131 ) ; "STATUS 


INDICATES  NO  CHAN  1  SIG 


INDICATES  NO  CHAN  2  SIG 


NAL!!  " :CHR$(128> 

370  GOTO  352 

371  Statu.s3_problem :  ! 

372  PRINT  TABXY (0,6) ; CHR$( 131); 

NAL!!  " ; CHR3( 1 28) 


"STATUS  INDICATES  NCl  CHAN  3  SIG 


373  GOTO  325 

374  Axbt_probiem :  ! 

375  OUTPUT  2  USING  "a . B" ; 255 . 75 

376  FOR  1=1  TO  10 


377  BEEP  1200, . 1 

378  BEEP  800,. 1 

379  NEXT  I 

380  PRINT  TABXY<22. 13) ;CHR$< 131 > ;  "INTERFACE  FOR  CHAN" ; Interf ac 
e ; "IS  NOT  RESPONDING !!": CHR$< 1 28) 

381  PRINT  TABXY (22,17); "PRESS  ANY  KEY  TO  CONTINUE" 

382  ON  Next_l ine  GOTO  341 ,352,325 

383  Key:  Empty$=KBD$ 

384  Nextchek=1 

385  RETURN 

386  Com_ready:  ENTER  7040 1 : P 1 . P2 , P3 , P4 

387  IF  BIT < P 1 . 4) =0  THEN  336 

388  RETURN 

389  Reuind_f in :  ENTER  70401 : PI .P2.P3.P4 

390  IF  BIT(P2,3)=0  OR  BIT(P2.5)=1  THEN  389 

391  RETURN 

392  OUTPUT  2  USING  "tt ,  B"  *,  255 , 75 

393  PRINT  TABXY<24, 15> -."SYSTEM  CHECK  FINISHED!!" 

394  END 


MET  LIST 


10  OPTION  BASE  1 

20  PRINTER  IS  1 

40  INTEGER  M<  1:30000)  BUFFER  .  I ,  J  .  K  .  Z  .  i1et_nark er 

41  ASSIGN  @Path 1  TO  BUFFER  M<*>;WQRD 

42  ASSIGN  @Path2  TO  70402 

50  HAT  H=  (0) 

70  W$="LAT : " 

80  X$="DEG" 

90  Y$="MIN" 

100  Z$=”LONG : " 

110  OFF  KEY 

120  FOR  1=1  TO  40 

130  PRINT  TABXY (26.8) : "  MET  DATA  EDIT  PROGRAM  M 
140  PRINT  TABXYf  1  +  18.8) 

150  NEXT  I 

160  PRINT 

170  FOR  1=1  TO  10 

180  PRINT  TABXY<19. 1+8) 

190  FOR  J=1  TO  38 

200  PRINT  ” 

210  NEXT  J 

220  PRINT  "*" 

230  NEXT  I 

240  FOR  1=1  TO  40 

250  PRINT  TABXY <1  +  18. 19)  , ; 

260  NEXT  I 

270  PRINT  TABXY<29. 12> ; "ENTER  FLIGHT  NO.  AND" 

280  PRINT  TABXY (26. 13) PRESS  CONTINUE 
290  INPUT  Flight 

300  PRINT  TABXY (0,1); "FLIGHT  NUMBER" : F 1 ight ; "SELECTED" 

490  PRINT  TABXY <26. 13) :CHR$(131 > IS  ALL  DISPLAYED  INFO  OK?  1 
: CHR$< 1 28) 

500  PRINT  TABXY<29. 12) 

510  PRINT  TABXY<29.14) 

520  INPUT  OkS 

530  IF  Ok$="Y"  OR  OkS="YES"  THEN  820 

540  IF  Ok$="N"  OR  Ok$="NO"  THEN  270 
550  GOTO  490 

820  BEEP  1000 . .5 

830  PRINT  TABXY <26, 13) :CHR$< 130) PRESS  CONTINUE  TO  START 
:CHR$< 128) 

840  PAUSE 

850  OUTPUT  2  USING  'V , B" ; 255 . 75 
860  OUTPUT  70401 ;"RW" 

870  GOSUB  Reuind_fin 

880  OUTPUT  70401 :"SF1" 

890  GOSUB  Com_ready 

900  OUTPUT  70401 ;"RR1" 


310  E  NTER  7 0402  USING  'V ,  W"  ; Month ,  Day  « Year  , FI  ight2 «  Type ,  Fi  rst 

920  IF  F 1 i ght2=F 1 igh t  THEM  931 

930  GOTO  880 

93-1  PRINTER  IS  701 

933  PRINT  "****■******■»*****■»***•»**•*■****»* -k***^*** *.^*****w * 

934  PRINT 

935  PRINT  "FLIGHT  NO ."  ;F1  ight2 .Month Day Year . " 

MET.  AND  TAS  DATA" 

93G  PRINT 

337  PRINT  " **•*■**■*■*■**■■**■****#**■* **■-*■-****.* ■* » <Hi***«* ** * #*«*#*«#.* * 

***•**■**■■*******.*.*.*.*..*.*1*..**.*..*" 


938 

940 

950 

960 

970 

971 

980 

981 

990 

991 

994 

995 

998 

999 

1000 
1001 


PRINT 

OUTPUT  70401 :"RR1" 

ENTER  70402  USING  'V  ,  W"  ;  Met_iriarker 
IF  Met_mark er=7000  THEN  981 
ENTER  70405  USING  ’V" 

GOSUB  Com_ready 
GOTO  940 

ENTER  70405  USING  "#" 


OUTPUT  70401 : "SRI ,1" 

GOSUB  Com_ready 
OUTPUT  70401 ;"RR10" 

TRANSFER  §Path2  TO  @Path1 
Rou=2 

PRINTER  IS  701 
GOTO  1016 

3X  ,  ^Hx'zzHaA !  WIN.l  ft  ’  “  ' 2X '  ^  • ' X  •  ZZZ  • "*  • '  X .  H  ■  D  ■ « •  A  • 

’ 3X  ’ HAMfl  ’ 3X ' AAAAfl  ’ 3X  ' AAAAA  ’ 3X  ’ AAAAA ' 3 

1003  IMAGE  X , D . DD . 4X . D . DD , 4X , D . DD . 4X , D . DD , 4X , D . DD , 4X , D . DB , 4X , D . 
DD , 4X , D , DD , 3X . DDD . D 

!?21.  rRINT  LISING  ^  00  ^  :  "TIME  : "  , M<Rou)  ,  M(Rouj+  1 ) ,  "  :  "  ,M(Row+2> , 

LAT  ,  Lat_deg  .  "deg"  ,  Lat_min  , . .  Lat_.d  i  r$  .  "LONG"  ,  Long_deg  ,  "deg"  ,  L 

ong_min,  ,Long_dir$ 

1005  PRINT  USING  1 002 : "CHAN1" , "CHAN2" , "CHAN3" , "CHAN4" . "CHANS" , " 
CHAN6" . "CHAN7” . "CHANS" . "TAS" 

1006  PRINT  USING  1 003 ; M(Rou+7 ) , M< Rou+8 > , M<Row+9) . M<Rou+ 1 0 ) , M(Ro 
w  +  1 1 )  ,M<Row+12>  ,M(Roui  +  13)  ,M(Rou  +  14)  ,M(Row+15) 

1007  PRINT 

1008  PRINT 


1010  Row=Row+ 1 6 

1011  IF  <Row+ 15) >30000  THEN  1013 

1012  GOTO  1016 

1013  PRINTER  IS  1 

1014  GOTO  4360 
1016  Word  1 =M(Row+3> 


1026 

mo 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1261 

1262 

1263 

1264 
1270 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4360 


Word2=M(Row+4) 

GOSUB  Posit 

IF  D i r=3  THEN  1150 

Lat_d i r $="N" 

GOTO  1160 
Lat_d i r$="S" 

Lat_deg=Deg 
Lat_min=Min 
Word  1 =M< Row  +  5 ) 

Word2=M(Row+6) 

GOSUB  Posit 

IF  Di  r  =  3  THEN  1240 

Long_d i r$="E" 

GOTO  1250 
Long_d i r$-"W" 

Long_deg=Beg 
Long_min=Min 
FOR  1=7  TO  14 

H(Row+I)=<M(Rou+I> )- .0012207 
NEXT  I 

M<Row+ 1 5  >  =  ( .0927734*M(Row+15>)+70 
GOTO  1004 

Posit:  D ig i t  < 4  >  =  SHIFT  <  Word  1 ,12) 

FOR  1=3  TO  1  STEP  -1 
Word  1 =R0TATE ( Wordl ,-4) 

Digit ( I> “SHIFT (Wordl .12) 

NEXT  I 

Min=<Digit<3>*10>+Digit(2)  +  (Diqit.(  1  )  * .  1 ) 
Dir^SHIFT  <Word2 ,6) 

Digit<6>=R0TATE(Word2,6> 

Dig it<6> -SHIFT <Digit<6> .14) 

Digit  <  5) =ROTATE ( Word2 , 4 ) 
Digit<5)=SHIFT<Digit(5> .12) 
Deq=Digit<6)*100+Digit(5)^10+Digit(4) 

RETURN 

Reuind_t in :  ENTER  70401 ; PI .P2.P3.P4 

IF  BIT(P2.3)=0  OR  BIT<P2.5>=1  THEN  4170 
RETURN 

Com_ready:  ENTER  7040 1 ; PI .P2.P3.P4 

IF  BIT <P1 . 4 >  =0  THEN  4200 
RETURN 

END 


"TAPEDUMP" 


10  OPTION  BASE  1 

20  GRAPHICS  ON 

30  GINIT 

31  PRINTER  IS  1 

33  Fiag=0 

40  INTEGER  A< 1 : 12480) fG< 1 : 12480) . I ,J,K , Z ,Datat < 1 :5237) 

72  W$="LAT : " 

80  X$="DEG" 

90  Y$="MIN" 

100  Z$="LONG : " 

110  OFF  KEY 

120  FOR  1=1  TO  40 

130  PRINT  TABXY(28 ,8) ; "  TAPE  DUMP 

140  PRINT  TABXY<I+18,8) 

150  NEXT  I 

160  PRINT 

170  FOR  1=1  TO  10 

180  PRINT  TABXY< 1 9 , 1+8)  ,  i 

190  FOR  J=1  TO  38 

200  PRINT  ” 

210  NEXT  J 

220  PRINT 

230  NEXT  I 

240  FOR  1=1  TO- 40 

250  PRINT  TABXY<  1  +  18 ,19),  "*■"  ; 

260  NEXT  I 

820  BEEP  1000,. 5 

821  PRINT  TABXY <26 . 13) ; "  WANT  TO  SELECT  FLIGHT  NO?" 

822  INPUT  Selects 

823  IF  SeiectS="Y"  OR  Select$="YES”  THEN  826 

824  IF  Se lect$  =  "N"  OR  Se lect$=”NO"  THEN  832 

825  GOTO  820 

826  PRINT  TABXY (26,13);"  ENTER  FLIGHT  NUMBER 

827  PRINT  TABXY <26,14) ; "  AND  PRESS  CONTINUE 

828  INPUT  Flight 

829  PRINT  TABXY<26. 14) ;" 

830  F 1 1 _ f 1 g  = 1 

832  PRINT  TABXY <26.13); CHRS( 130) ; "  PRESS  CONTINUE  TO  START 
:CHRS( 128) 

840  PAUSE 

841  PRINTER  IS  701 

850  OUTPUT  2  USING  ,B";255,75 

860  OUTPUT  70401 ;"RW" 

870  GOSUB  Reuind_f in 

880  OUTPUT  70401 :"SF1" 

890  GOSUB  Com_ready 

900  OUTPUT  70401 ;”RR1" 

910  ENTER  70402  USING  "# , W" ; Month , Day . Year , FI ight2 , Type . Fi rst 


911  IF  F 1 t_f lg=0  THEN  931 
920  IF  FI ight2=Fl ight  THEN  931 

930  GOTO  880 

931  PRINT 

932  PRINT 

933  PRINT 

934  PRINT 

935  PRINT  ,,#********#-*-**#********«**«if***i *■*■*■***■*■*■*■***.*.**.«.*.*.*.*.* 


937 

938 

939 
941 
950 
972 

980 

981 

984 

985 

986 

987 

989 

990 

991 

993 

994 

995 

996 
998 
128) 
1000 
1001 


PRINT  "FLIGHT  NUMBER": FI ight2," 

PRINT 
PRINT 

OUTPUT  70401 : "RR1 " 

ENTER  70402  USING  "*,W":Bt_2 

IF  Bt_2=7000  THEN  981 

GOTO  1001 

ENTER  70405  USING 

GOSUB  Com_ready 

OUTPUT  70401 : "SF2" 

GOSUB  Com_ready 
ENTER  70403; PI 
IF  BIT <P1 ,2)  =  1  THEN  994 
OUTPUT  70401 ;"SF2, 1" 

GOSUB  Com_ready 
GOTO  880 
BEEP  1  000,  .5 

PRINT  "END  OF  DATA - !!" 

PRINTER  IS  1 

PRINT  TABXY <27.10); CHR$< 131); "END  OF  DATA- 


",  Month ;"-";Day Year 


!  ! " ; CHR$< 


GOTO  4360 

ENTER  704C2  USING  "*.W" ;Data1 ( 1 > .Datal (2) .Datal <3) , Data l  <4 


) , Datal <5) , Datal <6) .Datal  <7) 


1003  Bt=Bt_2 
1010  T1 -Datal  <1) 

1020  T2=Data1 <2> 

1030  T3=Data1 (3) 

1040  T 1 $=VAL$<  T 1 ) 

1050  T2$=VALS<  T2) 

1060  T3$=VAL$(T3) 

1070  Co lon$="  : " 

1  080  T4$=T  1  $&Colon$&T2$<3tColon$&T3$ 

1090  Wordl =Data1  <4) 

1100  Word2=Data1 <5> 

1110  GOSUB  Posit 
1120  IF  Di r=3  THEN  1150 
1130  Lat_d i r$="N" 

1140  GOTO  1160 


1150 
1 160 
1170 
1  1 80 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1261 
1 X ,  zz 
1262 
_min 

1264 

1265 

1266 

1267 

1268 

1269 

1270 
1272 
2340 
3890 
3390 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4030 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 


Lat_di r$="S" 

Lat_deg=Deg 
Lat_m i n=M i n 
Wordl =Data1 (6> 

Word2=Data1 <  7 ) 

GOSUB  Posit 

IF  Dir=3  THEN  1240 

Long_dir$="E" 

GOTO  1250 
Lcmg_dir$="W" 

Long_deg=Deg 

Long_min=Min 

Output:  IMAGE  # , AAAAAA , ZZZ , 2X , AAAAAAAA ,  1 X , AAA , 1 X  » ZZZ , AAA , 

. D , A , A , 2X , AAAA . 1 X , ZZZ , AAA , 1 X  .  ZZ . D , A , A 

PRINT  USING  Output ;  "BT  NO.",Bt,T4$,"LAr\Lat_deg,"deg",Lat 
,Lat_dir$ , "LONG” , Long_deg , "deg" .Long  min . " ' " , Long  di r$ 

! PRINT  "BT  NO . " ; Bt  “  ~ 

! PRINT  T4$ 

1  PRINT  "LAT" ; Lat_deg ; "DEG" , Lat_min ; "MIN" . Lat_di r$ 

! PRINT  "LONG" ; Long_deg ; "DEG" , Long_min ; "MIN" , Long  dir$ 

PRINT 

PRINT 

ENTER  70405  USING  ’V" 

GOTO  941 
Next : 


OUTPUT  2  USING  "#fB" ; 255, 75 
GCLEAR 

IF  Type$="S"  THEN  4020 
Posi t ion=-222 
GOTO  4030 
Position=-1 1 1 
GOTO  941 

Posit:  Digi t (4) “SHIFT (Wordl ,12) 

FOR  1=3  TO  1  STEP  -1 
Wordl =R0TATE< Wordl ,-4) 

Digi t  < I ) =SHIFT( Wordl ,12) 

NEXT  I 

Min=<Digit(3)*10)+Digit<2>+<Digit<1 >*,1 ) 

Dir “SHIFT  <Word2 ,6) 

Digi  t.<6)  =R0TATE<  Word2 ,6) 
Digit<6)=SHIFT<Digit<6) ,14) 
Digit(5)=R0TATE<Word2,4) 
Digit(5)=SHIFT<Digit<5) ,12) 

Deg=Digit(6)*1 00+Digit(5)*10+Digit(4) 

RETURN 

Reuind_fin:  ENTLR  7040 1 : PI , P2 , P3 , P4 

IF  BIT<P2,3)=0  OR  BIT(P2,5)=1  THEN  4170 
RETURN 

Com_ready:  ENTER  70401 ; P 1 ,P2,P3 ,P4 


4210 

4220 

4230  Dump: 


IF  BIT < P 1 ,4>  =  0  THEN  4200 
RETURN 

OUTPUT  701  ;" 


4240 


4250 


4260 

4270 

4360 


OUTPUT  701:" 


END 


OUTPUT  701;" 

DUMP  GRAPHICS 
RETURN 


"50M  DUMP" 


10 

20 

30 

31 
40 
72 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
;CHR$< 
500 
510 
520 


OPTION  BASE  1 
GRAPHICS  ON 
GINIT 
F 1 ag  =  0 

1  :  ]2Z|80>  ’G<1  :  t2480>  .  I  >  J  .K , Z  ,  Datal  <  1  : 5287 ) 

n4>  —  LH  I  t 

X$="DEG” ~ 

Y$=”MIN" 

Z$="L0NG : " 

OFF  KEY 
FOR  1=1  TO  40 

PRINT  TABXY (28.8) 50  METER  PROFILE  DUMP  ” 

PRINT  TABXY (1  +  18,8), ; 

NEXT  I 
PRINT 

FOR  1=1  TO  10 

PRINT  TABXY <19. 1+8) , • 

FOR  J=t  TO  38 
PRINT  ” 

NEXT  J 
PRINT 
NEXT  I 

FOR  1=1  TO  40 
PRINT  TABXY<I+18, 19) 

NEXT  I 

PRINT  TABXY <29 , 12) : "ENTER  FLIGHT  NO.  AND" 

PRINT  TABXY (26,13);"  PRESS  CONTINUE 
INPUT  Flight 

PRINT  TABXY (0,1); "FLIGHT  NUMBER" j FI ignt : "SELECTED" 

PRINT  TABXY <29,12) : "  ENTER  BT  TYPE  " 

PRINT  TABXY  <26,13)  ;"<S=SHALLOW,D=DEEPtM=MIXED)" 

PRINT  TABXY<29 ,14); "AND  PRESS  CONTINUE" 

INPUT  TypeS 
IF  Type$="S"  THEN  430 
IF  T yPe$="D"  THEN  450 
IF  TyPe$="M"  THEN  470 
GOTO  350 

PRINT  TABXY< 0.3) ; "BT  TYPE  IS  'SHALLOW'" 

GOTO  480 

PRINT  TABXY<0,3>  ,*"BT  TYPE  IS  'DEEP' 

GOTO  480 

PRINT  TABXY <0 ,3) : "BT  TYPE  IS  'MIXED'  " 

BEEP  1  000.. 5 

PRINT  TABXY<26. 13) ;CHR$< 131 ) IS  ALL  DISPLAYED  INFO  OK? 

PRINT  TABXY<29 , 12) ; " 

PRINT  TABXY (29,14) 

INPUT  OkS 


ft 


530  IF  0k$="Y"  OR  Ok$="YES"  THEM  5E0 
540  IF  Ok$="N"  OR  Ok$="NO"  THEN  270 
550  GOTO  430 

560  IF  Type$="S"  THEN  691 

561  Depth_max=-800 . 00 

570  Posi t  ion=~222 
580  Select_no1 =- 1 96 
590  Select_no2=26 
600  Bt  _pos=50 

610  T  _pos=20 

620  Lat_pos=-t0 
630  Long_pos=-40 
640  Cu.rs_labl  =  -70 

650  Data_3ab I  =  -1  60 

660  Data_header  =  - 1 90 

670  Samp le_max =5280 
680  Data_pos=26 

690  GOTO  820 

691  Depth_max=-400 . 00 
700  Positional  1 1 

710  Select_no1 =-98 
720  Select_no2=1 3 
730  Bt_pos=25 
740  T_pos= 1 0 
750  Lat_pos=-5 
760  Long_pos=~20 
770  Cu.rs_Iabl  =  -35 
780  Data_labl=-80 
780  Data_header=-95 
800  Samp le_max =2640 
810  Data_pos=13 
820  BEEP  1000,. 5 

830  PRINT  TABXYC26, 13) ;CHR$< 130) PRESS  CONTINUE  TO  START 
;CHR$< 1 28) 

840  PAUSE 

850  OUTPUT  2  USING  ”#  ,  B" : 255 , 75 
860  OUTPUT  70401 ; "RW" 

870  GOSUB  Rewind_fin 
880  OUTPUT  70401 ;”SF1" 

890  GOSUB  Com_ready 
900  OUTPUT  70401 : ”RR1 " 

910  ENTER  70402  USING  'V, W";Month, Bay .Year, Flight2, Type, First 

920  IF  F 1 ight2=F 1 ight  THEN  940 

930  GOTO  880 

940  OUTPUT  70401 :"RR1” 

950  ENTER  70402  USING  "*,W";Bt_2 

972  IF  Bt_2=7000  THEN  981 

980  GOTO  990 


981 

982 

128) 

984 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1261 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1430 

1440 

1441 

1443 

1444 

1445 


BEEP  1000, .5 

PRINT  TABXY (27,10) ;CHR$< 131 > ,*"END  OF  FLIGHT- 
GOTO  4360 

ENTER  70402  USING  "# ,W" ;Data1 <*> 

Bt=Bt_2 
T 1 =Data1  <  1 ) 

T2=Data1  (2) 

T3=Data1 (3) 

T1$=VAL$<T1 ) 

T2$=VAL$<  T2> 

T3$=VAL$<  T3> 

Colon$=" : " 

T4$=T1$&Colon$dT2$aColon$&T3$ 

Wordl =Data1  <4) 

Word2=Data1 <5> 

GOSUB  Posit 

IF  Di r=3  THEN  1150 

Lat_dir$="N" 

GOTO  1160 
Lat_d i r$="S” 

Lat_deg=Deg 
Lat_min=MiTi 
Wordl =Datal <6) 

Word2=Data1 <  7 ) 

GOSUB  Posit 

IF  D  i  r=3  THEN  1240 

Long_di r$="E" 

GOTO  1250 
Long_dir$="W" 

Long_deg=Deg 
Long_min  =  (1in 
IF  Flag=1  THEN  1443 
VIEWPORT  0,125.9,100 
IF  Type$="S"  THEN  1330 
WINDOW  -7.53.7,-810,60 
ASSIGN  @Path1  TO  "EDIT  GRID2" 

ENTER  @Pathl  ,*G<») 

GOTO  1430 

WINDOW  -7,53.7,-405,30 
ASSIGN  @Path1  TO  "EDIT  GRID" 

ENTER  @Path1;G<*> 

DIM  Depthl <5280) , Tempi (5280) 

DIM  Temp2<23) ,Depth2(23) .Message <31 > ,Data<23) 
F 1  ag  =  1 
GLOAD  G<*> 

LINE  TYPE  1 
PEN  1 


! ! " ; CHR$< 


1 450  J-1 

1460  FOR  U=0  TO  528  STEP  .1 
1470  Depthl  <J)=-1  .5926*11 
1480  J=J+1 

1490  NEXT  U 

1500  FOR  1=1  TO  Sample_max 

1510  IF  Datal ( 1+7 ) >6945  OR  Datal < 1+7) <3700  THEM  1540 

1520  Tempi  < I>.=  <  <  1  /(Datal  (I+7)*1  .E-7)  >-  1440>/36 

1530  GOTO  1550 

1540  Tempi <I)=-5 

1550  NEXT  I 

1560  J=0 

1570  K=0 

1580  HOVE  0,0 

1590  FOR  1=2  TO  Sample_max 

1591  IF  Tempi <I)=-5  OR  Tempi < 1-1 ) =-5  THEN  1620 
1600  HOVE  Tempi <1-1 >, Depthl <1-1 > 

1610  DRAW  Tempi <I>. Depthl <I> 

1620  NEXT  I 
1630  CSIZE  3 
1690  HOVE  36 , Bt_pos 
1700  LORG  2 

1710  LABEL  "BT  NO. :";Bt 
1720  MOVE  36. T _pos 
1730  LABEL  "tlME : " : T4$ 

1740  MOVE  36 ,Lat_pos 

1750  LABEL  "LAT t " : Lat_di r$ : Lat_deg ; "DEG" ; Lat_min ; "MIN" 

1760  MOVE  36,Long_pos 

1  770  LABEL  "LONG :  "  :  Long_d i  r$ ; Long_deg ;  "DEG"  ;  Long_mi n ;  "MIN" 

1810  MOVE  36 , Data_lab 1 
1820  CSIZE  3 

1830  LABEL  "SELECTED  DATA.*" 

1840  MOVE  38 , Data_header 
1850  CSIZE  2.5 

1860  LABEL  "TEMPCDegO  DEPTH(M) " 

1870  GSTORE  A(*) 

1880  HOVE  0,0 
1890  1=1 

1900  K=0 

2120  J=0 

2130  MOVE  38. Posit  ion 

2131  CSIZE  3 

2133  LABEL  USING  "2X,DD.DD,X,2X,DDD.D";PR0UND<Temp1 < 1 ) .-2) ,PROU 
ND( -Depthl < 1 ) , -2) 

2134  Posi tion=Posi t i on— Data _ pos 

2136  Test=2 

2144  Depth=-50 . 00 

2154  IF  PROUNDC Depthl (Test) , -1 ><Depth+. 1  AND  PROUND<Depth1 (Test 


)  ,-1 )>Depth-. 1  THEN  2184 
2164  Test=Test+1 
2174  GOTO  2154 

2184  IF  Tempi (Test)=-5  THEN  2300 
2190  MOVE  Tempi (Test)-5,Depth1 (Test) 

2200  DRAW  Tempi <Test)+5,DePth1 (Test) 

2210  MOVE  33 , Posit  ion 

2280  LABEL  USING  ,,2X.DD.DD,X,2X,DDD.D";PR0UND(Temp1  (Test)  .-2)  ,P 
R0UND(-DePth1 (Test) ,-2) 


2300 
2310 
2320 
2324 
2330 
2340 
3890 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
41 10 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 


Position=Positi  on-Data_pos 
IF  Depth=Depth_max  THEN  2330 
Depth=Depth-50 .00 
GOTO  2154 
GOSUB  Dump 

Next:  OUTPUT  2  USING  "*.B":255.75 

GCLEAR 

IF  Type$="S"  THEN  4020 
Posi t ion=-222 
GOTO  4030 
'  Posi t ion=-1 1 1 
GOTO  940 

Posit:  Digit(4)=SHIFT(Word1 , 12) 

FOR  1=3  TO  1  STEP  -1 
Wordl =R0TATE(Word1 ,-4> 
Digit(I)=SHIFT(Word1 ,12) 

NEXT  I 

Min=(Digit(3)*10)+Digit(2)+(Digit(1)* 

Dir=SHIFT(Word2.6) 

Digi t(6)=R0TATE(Word2 ,6) 
Digit(6)=SHIFT(Digit(6) ,14) 
Digit(5)=R0TATE(Word2,4> 
Digit(5)=SHIFT(Digit(5) ,12) 

Deg=Digi t(6)*1 00+Digit(5)*10+Digit(4) 
RETURN 


t) 


Rewind  f in : 


Com_ready : 


Dump 


ENTER  70401 ;P1 ,P2,P3,P4 

IF  BIT (P2,3)=0  OR  BIT(P2.5)=1 

RETURN 

ENTER  70401 : PI ,P2,P3,P4 
IF  BIT < P 1 ,4)=0  THEM  4200 
RETURN 
OUTPUT  701 


THEN  4170 


4240 

OUTPUT 

701 

»» 

4250 

OUTPUT 

701 

4260  DUMP  GRAPHICS 

4270  RETURN 

4360  END 


APPENDIX  A 


BATHYTHERMOGRAPH  LOG 


1 

MESSAGE 

PREFIX 

M| 

Mj 

Mj 

J 

J 

X 

X 

DEPTH 

TEMP 

Zo 

Zo 

To 

To 

To 

0 

0 

z 

z 

G 

G 

G 

z 

z 

G 

G 

T, 

38 

- 

42 

1 

MESSAGE 

PREFIX 

Mj 

Mj 

Mj 

J 

J 

X 

X 

DEPTH 

TEMP. 

z0 

Zo 

To 

T0 

To 

0 

0 

z 

l 

G  T  i  I  j 

z 

l 

T i  T j  T,  ' 

38  -  42 


1 

MESSAGE 

PREFIX 

Mj 

Mj 

Mj 

Mj 

J 

J 

X 

X 

DEPTH 

TEMP 

Zo 

Zo 

To 

To 

To 

0 

0 

z 

z 
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z 

z 

G  T|  r2 

38  ~  42 


2 

DATE  (GMT) 

DAY 

month 

YR 

Y  Y 

M  M 

J 

16  17 


DEPTH 

TEMP 

1  z 

Ti  G  G 

z  z 

G  G  T| 

z  z 

Ti  G  T, 

43  ~  47 


2 

DATE  (GMT) 

DAY 

MONTH 

YR. 

Y 

Y 

M 

M 

J 

16  17 


DEPTH 

TEMP 

z 

z 

T/  G  G 

z 

z 

Ti  G  G 

z 

z 

G 

T, 

Ti 

43  ~  47 


2 

DATE  (GMT) 

DAY 
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YR 

Y 

Y 

M 

M 

J 

16  17 


DEPTH 

TEMP. 

z  z 

Ti  G  Ti 

z  z 

G  Ti  G 

z  z 

Ti  G  T  2 

43 


3 

TIME  (GMT) 

HOUR 

MIN 

G 

G 

9 

9 

/ 

DEPTH 

TEMP 

Z  z 

Ti  G  G 

z  z 

G  G  G 

z  z 

Ti  G  G 

3 

TIME  (GMT) 

HOUR 

MIN 

G 

G 

9 

9 

/ 

DEPTH 

TEMP 

z 

z 

Ti  G  G 

z 

z 

Ti  G  G 

z 

z 

Ti  G  G 

48 

- 

52 

3 

TIME  (GMT) 

HOUR 

MIN 

G 

G 

9 

9 

/ 

Q 

U 

A 

D 

4 

LATITUDE 

DEG 

MIN 

6c 

lO  lo 

Lo  Lo 

23 

TRACE  1 

27 

READINGS 

DEPTH 

TEMP 

Z  z 

Ti  G  G 

Z  z 

Ti  G  G 

z  z 

Ti  G  G 

53  "  57 

Q 

U 

A 

D 

4 

LATITUDE 

DEG. 

MIN. 

G  l  o 

Lo  L  o 

23  -  27 

TRACE  READINGS 

DEPTH 

TEMP 

z  z 

Ti  T  j  G 

z  z 

Ti  Ti  Tz 

z  z 

Ti  Tz  Ti 

53  -  57 

Q 

U 

A 

D 

4 

LATITUDE 

DEG 
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Qc 

L  O  1  0 

Lo  Lo 

bathythermograph  trace  readings 


DEPTH 

TEMP 

z  z 

Ti  G  G 

z  z 

G  G  G 

z.  z 

Ti  G  G 

52  53 


DEPTH 

TEMP. 

z 

z 

G  Ti  G 

z 

z 
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z 

z 

Ti  Ti  T  i 

LONGITUDE 


DEG. 


MIN 


Lo  L0  lo 

Lo  L0 

28 

32 

DEPTH 

TEMP 

Z  Z 

G  Ti  Ti 

Z  Z 

Ti  Ti  Ti 

z  z 

Ti  Ti  Ti 

LONGITUDE 


DEG. 


Lo  Lq  Ld 
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TEMP 
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Tz  Ti  Ti 
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Ti  Ti  Ti 

z  z 

T/  Ti  Ti 

LONGITUDE 


DEG 


DEPTH 

TEMP 

z  z 
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12  Bit  Microelectronic 
Data  Acquisition  System 
Models  HDAS-16,  HDAS-8 


FEATURES 

•  Miniature  62  Pin  Package 

•  1 2  Bit  Resolution 

•  lOmV  to  10V  Full  Scale  Range 

•  Three-State  Outputs 

•  1 6  Channels  Single  Ended  or 
8  Channels  Differentia! 

GENERAL  DESCRIPTION 

Utilizing  hybrid  technology,  Datel-lnter- 
sil  offers  a  data  acquisition  system  with 
superior  performance  and  reliability, 
combined  with  low  cost. 

The  HDAS-8  with  8  differential  input 
channels  and  HDAS-16  with  16  single 
ended  input  channels  are  complete  high 
performance  12  bit  data  acquisition 
systems  in  a  62  pin  package.  Acquisi¬ 
tion  and  conversion  time  combined 
is  20^sec  max.,  giving  a  minimum 
throughput  rate  of  50  kHz.  The  twelve 
bit  binary  data  can  be  transferred  out  in 
three  four  bit  bytes,  by  means  of  the 
three-state  data  bus  drivers.  Output 
coding  is  straight  binary  in  unipolar  op¬ 
eration  and  offset  binary  in  bipolar  oper¬ 
ation. 

The  HDAS  circuit  includes  a  multi¬ 
plexer.  programmable  gain  instrumen¬ 
tation  amplifier,  sample  and  hold  circuit 
complete  with  MOS  hold  capacitor,  10 
volt  buffered  reference,  a  twelve  bit 
A/D  converter  with  three-state  outputs 
and  digital  logic. 

The  internal  instrumentation  amplifier 
is  programmed  with  a  single  resistor  for 
gains  of  1  to  1000.  This  key  feature  is 
useful  in  low  level  signal  applications 
involving  bridge  amplifiers,  transduc¬ 
ers,  strain  gauge  and  thermocouple 
interface. 

The  HDAS  is  cased  in  a  small  hermetic 
62  pm  package  Models  are  available 
in  three  different  temperature  ranges: 
0  to  -+-70.  — 25  to  +85.  and  -55  to 
+ 1 25  degrees  centigrade. 

High  reliability  versions  of  each  model 
are  also  available  Power  requirements 
are  ±15VDCand  +5VDC. 


MECHANECAL  DIMENSIONS  -  INCHES  I  MM) 
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12  Bit  Microelectronic  Dele  Acquisition  System  Models  HDAS-16,  HDAS-8  Data  Acquisition 


SPECIFICATIONS,  HOAS-.16  A  HDAS-8  (Typical  at  25°C,  ±1 5V  and  +5V  supplies  unless  otherwise  Indicated)* 


r 

MAXIMUM  RATINGS 

+  5V  Supply . 

+  15V  Supply. 

-15V  Supply 

Analog  Input  Channels’ . 

Digital  Input  Pins . 

.  -0.5V  to  +7  0V 

.  -0.5V  to  +  18  0V 

.  +0.5  to  -18.0V 

.  ±35V 

.  -0.5V  to  +7  0V 

ANALOG  INPUTS 

Number  of  Channels. ..  ...  . 

16  Single  Ended 

(HDAS-16) 

8  Differential  (HDAS-8) 

Voltage  Ranges2,  unipolar.  .... 

.  0  to  +10mV  to  0  to  +10V 

bipolar . 

.  ±10mV  to  —  1 0V 

Input  Gain  Equation . 

_  20K 

'  G_1  +_RG" 

Common  Mode  Range  ..  .. 

.  ±  1 1 V  min. 

Input  Resistance.  .  . 

100  megohms 

Gain  Equation  Error . 

0.1%  max. 

Input  Bias  Current  . . 

200pA  max. 

Bias  Current  Tempco 

Doubles  every  10°C 

Input  Offset  Current. 

50pA  max. 

Offset  Current  Tempco 

Doubles  every  10°C 

Input  Offset  Voltage . . . 

.  8mV  typ.,  27  mV  max. 

Offset  Voltage  Tempco . 

.  20MV/°C  +(10mV/°CXG) 

Voltage  Noise  (RMS) 

G  =  1 

150  MV  RTI3 

G  =  1 000 

1  62/iV  RTI3 

Input  Capacitance,  OFFchannel 

lOpF 

ON  channel . 

.  lOOpF  (HDAS-16) 

50pF  (HDAS-8) 

ACCURACY 

Resolution .  . . 

.  12  Bits 

System  Error  . 

.  ±0  025%  of  FSR4  max 

(±1  LSB) 

Nonlinearity . 

^LSBmax. 

Differential  Nonlinearity . 

.  +J4LSB  max 

Gain  Error. . . 

Adj  to  zero 

Offset  Error. . 

Adj  to  zero 

Temp.  Coeff  of  Gain  ..... 

±10ppm/°C  typ  , 

( 

±30ppm/°C  max 

Temp.  Coeff.  of  Offset 

.  +  7ppm/°C  of  FSR  max. 

Diff.  Linearity  Tempco 

+3ppm/°C  of  FSR  max 

CMRR(Gain-l) . 

.  82  db  @  10  KHz 

CMRR(Gain=1000) 

.  1 10  db  #  60  Hz 

Monotonicity. . 

Guaranteed  over 

operating  temp  range 

Power  Supply  Rejection 

■  .01%/% 

DYNAMIC  CHARACTERISTICS 

Throughput  Rate  . .  . 

50  kHz  mm 

Acquisition  Time  .  .  .  . . . 

9/jsec  typ.  lO^sec  max 

Conversion  Time . 

.  9^sec.  typ.  lO^sec.  max. 

Aperture  Delay  Time . 

.  lOOnsec. 

Sample-Hold  Droop . 

.  1  /jV/m  sec. 

Feedthrough  (1  KHz) . 

.01%  max 

Channel  Crosstalk  (MUX) . 

.  -80  dB  at  1  kHz 

DIGITAL  OUTPUTS4 

Parallel  Data  Out . 

.  12  parallel  lines  of 

buffered  three-state  output 

data.  Drives  5  TTL  loads 

Coding -  .  .  . 

Straight  binary. 

Offset  binary 

Mux  Address  Out. 

Buffered  output  of 

address  register. 

Drives  5  TTL  loads, 

EOT  (Status). 

.  Drives  5  TTL  loads. 

DIGITAL  INPUTS* 

Enable  .  . .  .  .  .  Three  separate  inputs 

which  enable  three-state 
outputs  in  4  bit  bytes. 

1  LS  TTL  load. 

Mux  Address  In  .  3  Bit  (HDAS-8)  or  4  bit 

(HDAS-16)  binary 

address 

1  LS  TTL  load. 

Strobe .  1  LS  TTL  load 

Pulse  Width: 

40  nsec,  <  <  EOC 

MuxEnable  .  1  LS  TTL  load 

Load .  1  LS  TTL  load 

Clear .  1  LS  TTL  load 

POWER  REQUIREMENT  .  .  +15VDC  ±0.5V  3 

67  mA  max 
-15VDC  ±0  5V  @ 

71  mA  max 
+  5VDC  +0.25V  @ 

155  mA  max. 


PHYSICAL  ENVIRONMENTAL 

Operating  Temperature  Range .  0°C  to  +  70°C  (MC) 

-25°C  to  +  85°C  (MR) 

—  55°C  to  f  125°C  (MM) 

Storage  Temperature  Range  .  -65°C  to  t-  150°C 

Package  Size,  max . , . .  .  2.33  x  1  42  x  .3  inches 

(36.07  X  59.18  x  8,89  mm 
Package  Type  .  62  pin,  hermetically  sealed 

Pins .  Kovar 

Weight.. .  1.4oz.  (40  g) 


NOTES 

1.  +20V  in  power  off  condition 

2.  Selectable  with  proper  gain  range. 

3  RTI  -  Referred  to  Input 

4.  FSR  -  Full  Scale  Range  10V  for  0  to  +  10V  input.  5V  for 
±2.5V  input 

5  AH  outputs  are  LSTTL  (low  power  Schottky) 

vout  ro  )  <  o.4v  vout  rn  >  2.7 v 

6.  All  inputs  are  LSTTL 

Vin  rOl  <  0  8V  Vm  (“I”)  >  2.0V 


ORDERING  INFORMATION 


MODEL 

HDAS-16MC 

HDAS-16MR 

HDAS-16MM 


OP.  TEMP  RANGE 

0°C  to  70°C 
-25°C  to  +-85°C 
-55°C  to  +  125°C 

- 0  C  To  7 TFC - 

-55°C  to  f  125°C 


H  PAS -8  NIC _ 

HDAS-8MR 
HDAS-8MM 

Receptacle  for  PC  board  mounting  can  be  ordered 
through  AMP  Incorporated,  #3-331272-4  (component 
lead  spring  socket)  62  required 

Evaluation  socket.  Date!  P/N  58-6322-1  In¬ 

cludes  PC  board  with  offset  and  gam  potentiometers, 
bifurcated  terminals  for  electrical  connections. 

Trimming  Potentiometer:  TP20K  (20  K  ohms) 

For  high  reliability  versions  of  the  HDAS.  contact  factory 
THESE  MODELS  ARE  COVERED  BY  GSA  CONTRACT 


PIN  CONNECTIONS 

PIN  NO. 

HDAS-16 

HDAS-8 

1 

CH3  IN 

CH3  HI  IN 

2 

CH2  IN 

CH2  HI  IN 

3 

CHI 

IN 

CHI  HI  IN 

4 

CH0  IN 

CHO  Ht  IN 

5 

MUX  ENABLE 

* 

6 

R  DELAY 

* 

7 

£ 

* 

8 

STR 

OBC 

* 

9 

10 

11 

12 

TJ-  CM  «- 

<  <  <  < 

MUX 

-ADDRESS 

OUT 

* 

13 

14 

15 

RAff 

RA4 

RA2 

MUX 

-ADDRESS 

* 

16 

RA 1 

IN 

* 

17 

DIGITAL  COM 

* 

18 

+  5VDC 

* 

19 

enable 

* 

20 

Clear  Enable 

* 

21 

ENABLE  (Bits  9-12) 

* 

22 

BIT  12  OUT  (LSB) 

* 

23 

BIT  11  OUT 

* 

24 

BIT  10  OUT 

* 

25 

BIT  9  OUT 

* 

26 

Enable  Bits  5-8) 

* 

27 

BIT  8  OUT 

* 

28 

BIT  7  OUT 

* 

29  1 

BIT  6  OUT 

* 

30 

BIT  5  OUT 

* 

31 

ENABLE  Bits  1-4) 

* 

32 

BIT  4  OUT 

* 

33 

BIT  3  OUT 

* 

34 

BIT  2  OUT  j 

* 

35 

BIT  1  OUT  (MSB) 

* 

36 

GAIN  ADJ 

* 

37 

OFFSET  ADJ 

* 

38 

BIPOLAR  INPUT 

* 

39 

SAMPLE  HOLDOUT 

* 

40 

-10V  OUT 

* 

41 

ANALOG  SIGNAL  COM 

* 

42 

ANALOG  POWER  COM 

* 

43 

+15 VDC 

* 

44 

- 1 5  VDC 

* 

45 

C  HOLD  HI 

* 

46 

C  HOLD  LO  i 

* 

47 

R  GAIN  LO 

* 

48 

R  GAIN  HI 

* 

49 

AMP  IN  HI 

* 

50 

AMP  IN  LO 

* 

51 

CH15  IN 

CH7 LO  IN 

52 

CH 1 4  IN 

CH6 LO IN 

53 

CH  1 3  IN 

CH5  LO  IN 

54 

CHI 2  IN 

CH4 LO  IN 

55 

CH1 1  IN 

CH3 LO IN 

56 

CH  10  IN 

CH2 LO  IN 

57 

CH9  IN 

CHI LO IN 

58  | 

CH8IN  | 

CHO  LO  IN 

59 

CH7  IN 

CH7  HI  IN 

60 

CH6IN  I 

CH6  HI  IN 

61 

CH5  IN 

CH5  HI  IN 

62 

CH4  IN 

CH4  HI  IN 

*Same  as 
HDAS-16 

TABLE  1  DESCRIPTION  OF  PIN  FUNCTIONS 


FUNCTION 


LOGIC 

STATE  DESCRIPTION 


DIGITAL  INPUTS 

STROBE  1 

to 

0  Initiates  acquisition  and  conversion  of 
analog  signal 

LOAD 

0 

Random  Address  Mode 

Initiated  on  falling  edge  of  STROBE 

1 

Sequential  Address  Mode 

CLEAR 

0 

Allows  next  STROBE  pulse  to  reset 
MUX  ADDRESS  to  CHO  overriding 
LOAD  command 

MUX  ENABLE 

0 

Disables  internal  MUX 

1 

Enables  internal  MUX 

MUX  ADDRESS 

Selects  channel  for  Random  Address 

IN 

Mode  8  4.2.1  natural  binary  coding 

DIGITAL  OUTPUTS 

E  OC 

End  of  Conversion  -STATUS) 

0 

Conversion  complete 

1 

Conversion  in  process 

ENABLE  1-4) 

0 

Enables  three-state  outputs  Bits  1:4 

1 

Disables  three-state  outputs  Bits  1-4 

ENABLE  .5-8) 

0 

Enables  three-state  outputs  Bits  5-8 

1 

Disables  three-state  outputs  Bits  5-8 

ENABLE  9-12 

0 

Enables  three-state  outputs  Bits  9-12 

1 

Disables  three-state  outputs  Bits  9-12 

MUX  ADDRESS 

Output  of  MUX  Address  Register 

OUT 

8.4.2. 1  natural  binary  coding 

ANALOG  INPUTS 

Channel  Inputs 

Limit  voltage  to  *  20  V  beyond  power 
supplies 

Ex -if  power  supplies  ON  ~  15V,1 
maximum  input  voltage  is  +35  V  !lpowof 
supplies  OFF  0  V  .  maximum  input 
voltage  is  -  20  V 

Bipolar  Input 

For  unipolar  operation,  connect  to  PIN 

39  S  H  OUT 

For  bipolar  operation  connect  to  PIN 

40  -  10  V  OUT 

ANALOG  OUTPUTS 

S  H  OUT 

Sample  Hold  Output  1 

-  10V  OUT 

Buffered  •  10  V  reference  output 

ADJUSTMENT  PINS 

ANG  SIG  COM 

Low  level  analog  signal  return 

GAIN  ADJ 

External  gain  adjustment,  see  calibration 
instructions 

OFFSET  ADJ 

External  offset  adjustment,  see  calibra¬ 
tion  instructions 

R  GAIN 

Optional  gam  selection  point  Factory 
adjusted  for  G  _  1  when  left  open 

C  HOLD 

Optional  hold  capacitor  connection 

R  DELAY 

Optional  acquisition  time  adjustment 
when  connected  to  *  5V  factory  adiustec 
for  9  ,S 

Input  channels  are  protected  to  20  V  beyond  power  supplies 
All  digital  output  pins  have  one  second  short  circuit  protec¬ 
tion  and  CHOLD  has  a  ten  second  short  circuit  protection 

To  increase  acquisition  time  allotment  time  for  the  multi¬ 
plexer.  instrumentation  amplifier  and  sample-hold  to  settle 
out)  connect  a  resistor  from  RDELAY  (Pm  6.  to  +5  V  (Pm 
1 8)  Refer  to  Table  2  for  delay  times  and  resistor  values 

An  external  hold  capacitor  can  be  connected  between 
CHOLD  HI  and  CHOLD  LO  The  addition  of  this  capacitor 
will  improve  the  sample-hold  droop  rate  especially  at  high 
operating  temperature  ranges  It  is  recommended  that  poly¬ 
propylene  or  teflon  capacitors  be  used  for  best  results 


TECHNICAL  NOTES 

4 


The  HDAS  has  a  self  starting  circuit  for  free  running  seouen- 
tial  operation  If  however,  in  a  power  up  condition  the  supply 
voltage  slew  rate  is  less  than  3V  usee  the  free  running 
state  may  not  be  initialized  By  applying  a  negative  pulse  to 
the  STROBE  this  condition  will  be  eliminated 

All  digital  inputs  must  be  stable  50nsec  before  and  50nsec 
after  high  to  low  transition  of  STROBE 

For  UNIPOLAR  operation  connect  BIPOLAR  IN  Pm  38  to 
S  H  out  Pm  39's  For  BIPOLAR  operation  connect  BIPOLAR 
IN  Pin  38;  to  MOV  OUT  Pin  40i 

If  HDAS  reference  10V  OUT  is  used  for  external  cir¬ 
cuitry  source  current  should  be  limited  to  1mA 


A- 5 


TABLE  2  INPUT  RANGE  PARAMETERS  (Typical) 


INPUT  RANGE 

GAIN 

RGAIN  (O) 

AMPLIFIER 

SETTLING 

TIME 

RDELAY  (Cl) 

THROUGHPUT 

SYSTEM 

ACCURACY 

MOV 

1 

NONE 

9psec. 

NONE 

55  5  KHz 

0.009% 

*  5V 

2 

20  OK 

9Msec 

NONE 

55  5  KHz 

0  009% 

-2  5V 

4 

6  667K 

9/isec 

NONE 

55  5  KHz 

0  009% 

-IV 

10 

2  222K 

9/isec 

NONE 

55  5  KHz 

0  009% 

200m  V 

50 

408  2 

16/isec. 

7K 

40  0  KHz 

0  010% 

-  lOOmV 

100 

202  0 

30/jsec 

2 1 K 

25  6  KHz 

0  011% 

+  50mV 

200 

100  5 

60psec 

51K 

14  5  KHz 

0  016% 

+  20mV 

500 

40  08 

144/isec. 

135K 

6  5  KHz 

0  035% 

—  1 0mV 

1000 

20  02 

288^sec 

279K* 

3  3  KHz 

0  069% 

T 

NOTES: 

RGAIN  (O)  = 


20.000 
(GAIN- 1 ) 


RDELAY  (H! 


Amp  Setting  time 
10*9 


9K 


TABLE  3  CALIBRATION  TABLE 


UNIPOLAR  RANGE 

OTO  ~5V 

OTO  -10V 

BIPOLAR  RANGE 

-2  5V 

+  5V 
-10V 


ADJUST 

ZERO 
GAIN 
ZERO 
GAIN _ 

OFFSET 

GAIN 

OFFSET 

GAIN 

OFFSET 

GAIN 


INPUT  VOLTAGE 

+0  6  mV 
+4  9982V 


+  1  2  mV 
^9  9963V 


2.4994V 
+  2  4982V 

-4  9988V 
+  4  9963 V 

-9  9976V 
+  9  9927V 


CALIBRATION  PROCEDURES 

A)  Offset  and  gain  adjustments  may  be  made  by  con¬ 
necting  two  20K  trim  potentiometers  as  shown  in 
Figure  1 . 

B)  Connect  a  precision  voltage  source  to  pin  4  (CHO). 
If  the  HDAS-8  is  used,  connect  pin  58  (CH  0  LO)  to 
analog  ground  Ground  pm  20  (CLEAR)  and  momen- 
tarily  short  pin  8  (STROBE).  Trigger  the  A/D  by  con¬ 
necting  pin  7  (EGO)  to  pm  8  (STROBE).  Select  proper 
value  for  RGAIN  and  RDELAY  by  referring  toTable2, 

C)  Adjust  the  precision  voltage  source  to  the  value 
shown  in  the  Calibration  Table  for  the  unipolar  zero 
adjustment  (ZERO  +  ^  LSB)  or  the  bipolar  offset  ad¬ 
justment  (~FS  +  S  LSB}.  Adjust  the  offset  trim 
potentiometer  so  that  theoutputcode  flickers  equally 
between  0000  0000  0000  and  0000  0000  0001 

D)  Change  the  output  of  the  precision  voltage  source 
to  the  va'ue  shown  in  the  Calibration  Table  for  the 
unipolar  or  bipolar  gain  adjustment  (  +  FS—  O2LSB) 
Adjust  the  gam  trim  potentiometer  so  that  the  output 
flickers  equally  between  1111  1111  1110  and  1111 
1111  1111. 


‘This  value  exceeds  the  maximum  recommended  for  use  over 
military  temperature  ranges 


1.  Throughput  time  =  Amplifier  Setting  time  and  A  D  Conver¬ 
sion  Time 

A/D  Conversion  time  —  9  //sec 

2  Full  Scale  can  be  accommodated  for  analog  signal  ranges  of 
+  1 0mV  to  —  1 QV 

3  The  analog  input  range  to  the  A/D  Converter  is  0  to  +- 10  0V 
for  unipolar  and  — 10  0V  to  -M0  0V  for  bipolar  operation 


FIG  1  EXTERNAL  ADJ. 


-  15VDC 


•  15VDC 


TABLE  4  OUTPUT  CODING 


UNIPOLAR 

STRAIGHT  BINARY 

Oto  +10  V 

0  to  +5V 

+  FS-1  LSB 

+  9  9976 

+4.9988 

1111  1111  1111 

+  ’/2FS 

+  5.0000 

+  2  5000 

1000  0000  0000 

+  1  LSB 

+0  0024 

+0  0012 

0000  0000  0001 

ZERO 

00000 

0.0000 

0000  0000  0000 

BIPOLAR 

OFFSET  BINARY* 

+  10  V 

1+ 

tn 

< 

+  FS-1  LSB 

+  9  9951 

+4  9976 

1111  1111  1111 

+  '4FS 

+  5  0000 

+  2  5000 

MOO  0000  0000 

+  1  LSB 

+0  0049 

+0.0024 

1000  0000  0001 

ZERO 

0.0000 

0.0000 

1000  0000  0000 

-FS  +  1 LSB 

-9.9951 

-4  9976 

0000  0000  0001 

FS 

-10  000 

-5  0000 

0000  0000  0000 

*  For  2  s  complement  -  add  inverter  to  MSB  line 


TABLE  5  MUX  CHANNEL  ADDRESSING 


-  MUX  ADDRESS - ►  ] 

j 

PIN 

UJ 

2 

9 

10 

11 

12 

5 

Z 

RA8 

RA4 

RA2 

RA1 

MUX 

< 

Z  X 

ENAB 

OO 

X 

X 

X 

X 

0 

NONE 

0 

0 

0 

0 

1 

0 

0 

0 

O 

1 

1 

1 

0 

0 

1 

0 

1 

0 

0 

1 

1 

1 

3 

c 

1 

0 

0 

1 

4 

0 

1 

0 

1 

1 

5 

0 

1 

1 

0 

1 

6 

HDAS-8 

u 

1 

1 

1 

1 

7 

(3  BIT  ADDRESS) 

1 

"  6 

0 

0 

1 

b 

1 

0 

0 

1 

1 

9 

1 

0 

1 

0 

1 

10 

1 

0 

1 

1 

1 

1  1 

1 

1 

0 

0 

1 

12 
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MULTIPLEXER  ADDRESSING 
Channel  Selection 

The  HDAS  is  capable  of  two  modes  of  addressing  the 
multiplexer 


RANDOM  ADDRESS 

Set  Pin  19  LOAD  to  logic  “0"  The  next  falling  edge 
of  STROBE  will  load  the  MUX  CHANNEL  ADDRESS 
present  on  Pm  13  to  Pin  16.  Address  inputs  must  be 
stable  50  nsec  before  and  after  falling  edge  of  STROBE 
pulse 

FREE  RUNNING  SEQUENTIAL  ADDRESS 

Set  Pm  19  (LOAD)  and  Pin  20  [CLEAR'  to  logic  "1  "or 
leave  open  Connect  Pin  7  (EOC)  to  Pin  8  (STROBE). 
The  falling  edge  of  EOC  will  increment  channel  address 
This  means  that  when  the  EOC  is  low,  the  digital  output 
data  is  valid  for  the  previous  channel  (CHn  - 1)  than  that 
channel  indicated  on  MUX  ADDRESS  OUTPUT.  The 
HDAS  will  continually  scan  all  16  channels. 

example 

CH  4  has  been  addressed  and  a  conversion  takes  place. 
The  EOC  goes  low  and  that  Channels  data  becomes 
valid  but  MUX  ADDRESS  CODE  is  now  CH5. 

TRIGGERED  SEQUENTIAL  ADDRESS 

Set  Pin  19  (LOAD)  and  Pm  20  (CLEAR)  to  logic  “1’'  or 
leave  open  Apply  a  falling  edge  trigger  pulse  to  Pin  8 
(STROBEj.  This  negative  transition  causes  the  contents 
of  the  address  counter  to  be  incremented  by  one  fol¬ 
lowed  by  an  A/D  conversion  in  9  ^sec. 


FIG.  2  HDAS  TIMING  DIAGRAM 
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FIG.  3  MULTIPLEXER  EQUIVALENT  CIRCUIT 


INPUT  VOLTAGE  PROTECTION 


As  shown  in  Fig.  3 ,  the  multiplexer  has  reversed  biased 
diodes  which  protect  the  inputchannelsfrom  being  dam¬ 
aged  by  overvoltage  signals.  The  HDAS  input  channels 
are  protected  up  to  20  V  beyond  the  supplies  and  can 
be  increased  by  adding  series  resistors(Ri)  to  eachchan- 
nel.  This  input  resistor  must  limit  the  current  flowing 
through  the  protection  diodes  to  10  mA. 


The  value  of  Ri  for  a  specific  voltage  protection  range 
(Vp)  can  be  calculated  by  the  following  formula: 

Vp  =  (R  signal  +  Ri  +  Ron)  (10  mA) 

where  Ron  =  2K 

NOTE:  Increased  input  series  resistance  will  increase 
multiplexer  settling  time. 


FIG.  4  LOW  LEVEL  INPUTS 


THERMOCOUPLES 


Remote  monitoring  of  low  level  signals  can  be  difficult, 
especially  when  analog  signals  pass  through  an  environ¬ 
ment  with  high  levels  of  electrical  noise.  One  solution 
is  to  use  an  instrumentation  amplifier  to  extract  the  com¬ 
mon  mode  voltage  and  amplify  the  voltage  difference. 
The  HDAS-8,  an  eight  channel  differential  input  system. 


can  reject  common-mode  noise  and  allow  amplification 
up  to  a  gam  of  1000.  Direct  connections  to  thermo¬ 
couples,  transducers,  strain  gages  and  RTD  can  be  made 
through  shielded  twisted  pairs  A  differential  RC  filter 
may  be  used  to  attenuate  normal  mode  noise. 


FIG.  5  32  CHANNEL  SINGLE  ENDED  DATA  ACQUISITION  SYSTEM 


FIG.  6  16  CHANNEL  DIFFERENTIAL  DATA  ACQUISITION  SYSTEM 


MX1606  16CHANNEL  CMOS  MULTIPLEXER 


MULTIPLEXER  EXPANSION 

Fig.  5  shows  the  interconnection  scheme  for  expanding  similar  scheme  to  expand  the  HDAS-16  to  1 6 differential 
the  multiplexer  channel  capacity  of  the  HDAS-16  from  channels. 

1 6  channels  single  ended  to  32  channels.  Fig.  6  shows  a 


FIG.  7  SIMPLE  CONNECTION  DIAGRAM 


NOTES: 

1  For  HDAS-16.  tie  PIN  50  to  "signal  source  common  *  if  pos¬ 
sible  Otherwise  tie  PIN  50  to  PIN  41  (ANG  SIG  COM) 

2  BIPOLAR  connection  yields  -10V  range  UNIPOLAR  con¬ 
nection  yields  0  to  - 10  V  range  Other  ranges  are  created  by 
selecting  appropriate  value  of  Rg 

3  DIG  COM.  ANG  PWR  COM  and  ANG  SIG  COM  are  internally 
connected 


FIG.  8  PROCESSOR  INTERFACE 


A- 10 


SDC-19100  MONOBRID®  SERIES* 

- — — — -  ILC  DATA  DEVICE  CORPORATION 

10,  12  AND  14  BIT  INDUSTRIAL 
S/D  AND  R/D  CONVERTER 

FEATURES 
•  LOW  COST 
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DESCRIPTION 

The  SDC-19100  Series  hybrid  indus¬ 
trial  converters  are  available  in  10,  12 
or  14  bit  resolution  with  accuracies  of 
±21  min,  ±8.5  min  and  ±5.3  min 
respectively.  Repeatability  is  1  LSB 
for  all  versions.  Velocity  and  dir¬ 
ection  outputs  are  standard  features 
of  these  converters. 

These  units  are  available  in  low,  mid 
and  high  frequency  ranges,  with  in¬ 
put  options  for  synchro,  resolver  or 
direct  inputs. 

The  SDC-19100  Series  converters  are  a 
low  cost,  low  profile  synchro  or 
resolver  to  digital  tracking  devices. 
Because  of  a  unique  control  trans¬ 
former  algorithm,  these  converters 


provide  an  inherently  higher  accur¬ 
acy  and  jitter  free  output.  Through 
the  use  of  a  type  II  tracking  loop 
these  converters  do  not  exhibit  veloc¬ 
ity  lag  up  to  the  specified  tracking 
rates  (Figure  1).  In  addition,  the 
output  data  is  always  fresh  and  con¬ 
tinuously  available.  Each  unit  is 
fully  factory  trimmed  and  requires  no 
field  adjustments  or  calibration. 

APPLICATIONS 

The  SDC-19100  Series  converters  are 
designed  to  meet  the  requirements 
of  the  full  range  of  industrial  and 
commerical  applications,  including 
control  systems,  radar  antenna  posi¬ 
tion  information,  CNC  machine  tool¬ 
ing  and  robot  axis  control. 


•  FAST  TRACKING 

•  3 -STATE  LATCHED  OUTPUTS 

•  VELOCITY  OUTPUT 

•  RESOLUTION/ACCURACY 

10  BIT/+21  MINUTES 
12.  BIT/ ±8. 5  MINUTES 
14  BIT/ ±5.3  MINUTES** 

•  1  LSB  REPEATABILITY 

•  DIRECTION  AND  COUNT 
OUTPUTS  FOR  INCREMENTAL 
APPLICATIONS 

Note:  Monobrid®  is  a  registered  trademark  of 
ILC  Data  Device  Corporation. 


Patented 

‘Consult  factory  for  higher  accuracy. 


PARALLEL  DIGITAL  OUTPUT  0 


FIGURE  1.  BLOCK  DIAGRAM 
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SPECIFICATIONS 

Apply  over  temperature  range  ,  power  supply  range,  reference  frequency  and  amplitude  range,  *  10%  signal  amplitude 

variation,  and  up  to  10%  harmonic  distortion  tn  the  reference. 

PARAMETER 

UNITS 

VALUE 

SDC-19100  Series 

1910X 

1912X 

1914X 

RESOLUTION 

bits 

10 

12 

14 

ACCURACY 

min 

±21 

±8.5 

±5.3 

SIGNAL  AND  REFERENCE  INPUT 

Carrier  Frequency  Range 

Low  Range 

kHz 

.047  to  1 

.047  to  1 

.047  to  1 

Mid  Range 

kHz 

.36  to  22 

36  to  22 

.36  to  11 

High  Range 

kHz 

.36  to  22 

.36  to  22 

.6  to  11 

REFERENCE  INPUT  CHARACTERISTICS 

Voltage  Range 

Input  Impedance 

V  rms 

4  to  50  (26  nom) 

20  to  150  (1 15  nom) 

Single  Ended 

n 

50k  min 

300k  min 

Differential 

Common  Mode  Range  (DC  common 

a 

100k  min 

600k  min 

mode  plus  recurrent  AC  peak) 

V 

60  max 

300  max 

SIGNAL  INPUT  CHARACTERISTICS 

(Voltage  options  and  minimum  input 
impedance  balanced) 

Synchro 

90V  L-L 

11.8V  L-L 

Zin(L-L) 

k  a 

160 

20 

Z\n  Each  (L-GND) 

ka 

100 

13 

Resolver 

1 1 ,8V  L-L 

Zjn  Singled  Ended 

kn 

27 

Ztn  Differential 

ka 

54 

Zm  Each  (L-GND) 

ka 

27 

Direct  (2.0V  L-L) 

Input  Signal  Type 

Sin  and  cos  resolver  signals  referenced  to  converter  internal  DC  reference  V 

Sin/Cos  Voltage  Range 

2V  nominal,  2.3  max 

Maximum  Voltage  Without  Damage 

15V  rms  continuous;  100V  peak  transient 

Input  Impedance 

Z|n  >  20  Ma  (transient  protected  voltage  follower) 

DIGITAL  INPUT/OUTPUT 

Logic  type 

TTL/CMOS  compatible,  depending  on  logic  supply  voltage 

Inputs 

Z  >  25  ka  pullup  resistor  to  V* 

Inhibit  (INH)  _ 

Logic  "0"  inhibits 

Enable  Bits  1  to  6  ENM  ) 

Enable  Bits  7  to  14  ENL  V 

(  Logic  0  enables 

7  to  1  2  EN L  ( 

1  to  10  ENL  ) 

eTTm  and  ENL 

(  Logic  "1"  high  impedance 

S 

Output 

Logic  "0"  for  use  as  CT 

Parallel  Data 

bits 

10,  12  or  14  parallel  lines;  natural  binary  angle,  positive  logic 

Count  (CB) 

0.7  to  2.0  jise c  positive  pulse  leading  edge  initates  counter  update 

Direction  (U) 

Logic  high  when  counting  up  and  logic  low  when  counting  down 

Drive  capability 

1  std  TTL  load,  1 .6  mA  at  0.4V  max 

ANALOG  OUTPUTS 

Internal  DC  reference  (V) 

mV 

+  15  VDC/2^  7  5 V  nom 

AC  Error  (e) 

10  mV  rms  per  LSB  of  error  (14  bits) 

12.5  mV  rms  per  LSB  of  error  (10  and  12  bits) 

Filtered  DC  Error  Voltage  (E) 

—  1  VDC  per  +1  LSB  of  error(±3  LSB  range)  14  bit  unit 
—1 .25VDC  per  +1  LSB  of  error  (±3  LSB  range)  10  and  1  2  bit  units. 

POWER  SUPPLY  CHARACTERISTICS 

Nominal  Voltage 

+  15V  Supply 

Logic  Supply 

Voltage  Range 

V 

+  11  to  +16.5 

+4.5  to  +15 

Maximum  Voltage  Without  Damage 

V 

+  18 

+  18 

Current  or  Impedance 

1 5  m A  max 

Zfn  =  5  k  a  min 

TEMPERATURE  RANGES 

Operating 

— 30X 

°C 

0  to  +70 

-10X 

°C 

—  30  to  +105 

Storage 

°c 

-30  to  +105 

PHYSICAL  CHARACTERISTICS 

Size 

in 

2.1  x  2.1  x  0.2  (53  x  53 

x  5  mm)  see  mechanical  outline 

Weight 

oz 

0.7  (20g) 

SDC-19100 


TECHNICAL  information 

introduction 

The  circuit  shown  in  the  SDC-19100  block  diagram.  Figure 
1,  consists  of  three  main  parts:  the  signal  input  option;  a 
feedback  loop  whose  elements  are  the  control  transformer, 
demodulator  error  processor,  and  up-down  counter;  and 
digital  interface  circuitry  including  various  latches  and 
buffers. 

The  input  options  accept  a  synchro  or  resolver  input  and 
produce  a  resolver  type  output  for  the  control  transformer. 
The  first  two  options,  called  solid  state  synchro  and  resol¬ 
ver  input,  accept  synchro  and  resolver  signal  inputs  directly, 
and  provide  signal  isolation  internally.  The  third  option 
is  a  direct  input  designed  to  operate  with  a  2V  L-L  input, 
which  allows  for  the  use  of  a  lower  reference  voltage.  Since 
it  does  not  have  an  input  scaling  network  it  is  inherently 
more  accurate. 

All  input  options  are  DC  coupled  with  broadband  charac¬ 
teristics  up  to  the  specified  frequencies. 

In  a  synchro  or  resolver,  shaft  angle  data  is  transmitted 
as  the  ratio  of  carrier  amplitudes  across  the  terminals. 
The  internal  converter  operates  with  signals  in  resolver 
format,  sin  0  cos  cut  and  cos  0  cos  cot.  Synchro  signals 
are  of  the  form  sin  0  cos  cot,  sin  (0  +  120°)  cos  cot,  and  sin 
(0  +  240°) cos  cot. The  diagrams  below  show  synchro  and 
resolver  signals  as  a  function  of  the  angle  0. 

The  feedback  loop  produces  a  digital  angle  which  tracks 
the  analog  input  angle  0  to  within  the  specified  accuracy 
of  the  converter.  The  control  transformer  performs  the 
following  trigonometric  computation: 

sin  (0  —  4>)  =  sin  0  cos  —  cos  0  sin  <£ 

where  0  is  the  angle  representing  the  synchro  or  resolver 
shaft  position,  and  <£>  is  the  digital  angle  contained  in  the 
up-down  counter  in  the  converter.  The  tracking  process 
consists  of  continually  adjusting  to  make  (0  —  <£)  -*  0, 
so  that  will  represent  the  shaft  position  0. 


Standard  Synchro  Control  Transmitter  (CX)  Outputs 
as  a  Function  of  CCW  Rotation  From  Electrical  Zero 
(EZ). 


SYNCHRO  AND 
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The  output  of  the  demodulator  is  an  analog  DC  level  pro¬ 
portional  to  sin  (0  —  4>).  The  error  processor  integrates  this 
sin  (0  —  4>)  error  signal,  and  the  output  of  the  integrator  is 
used  to  control  the  frequency  of  a  voltage  controlled 
oscillator  "clock"  pulses  which  are  accumulated  by  the  up- 
down  counter.  The  up-down  counter  is  functionally  an 
incremental  integrator.  Therefore  there  are  two  stages  of 
integration,  making  the  converter  a  Type  II  tracking  servo. 

In  a  Type  II  servo,  the  voltage  controlled  oscillator  always 
settles  to  a  counting  rate  which  makes  d4>/dt  equal  to  d0/dt 
without  lag.  The  output  data  will  always  be  fresh  and  avail¬ 
able  as  long  as  the  maximum  tracking  rate  of  the  converter 
is  not  exceeded. 

The  digital  interface  circuitry  has  three  main  functions:  to 
latch  the  output  bits  during  an  Inhibit  command  so  that 
stable  data  can  be  read  out,  to  furnish  both  parallel  and 
3-state  data  formats,  and  to  act  as  a  buffer  between  the 
internal  CMOS  logic  and  the  external  logic  level. 

Applying  an  Inhibit  command  will  lock  the  data  in  the 
transparent  latch  without  interfering  with  the  continuous 
tracking  of  the  feedback  loop.  This  is  a  new  feature,  since 
S/D  and  R/D  converters  usually  lock  the  up-down  counter 
while  an  Inhibit  is  applied.  In  the  SDC-19100  Series  Mono- 
brids,  therefore,  the  digital  angle  is  always  updated  and 
the  Inhibit  can  be  applied  for  an  abitrary  amount  of  time. 
The  Inhibit  transparent  latch  and  the  0.2  fjts  delay  are  also 
parts  of  the  Inhibit  circuitry,  whose  detailed  operation  is 
described  in  the  Logic  Output/Input  Section. 

When  testing  or  evaluating  the  converter,  it  is  advisable  to 
limit  the  power  supply  currents  as  follows: 

+  15V  Supply  Limit  at  20  mA. 

Logic  Supply  at  2  mA  +  Digital  Load  at  Logic  1. 

Analog  circuits  inside  the  SDC-19100  module  are  refer¬ 
enced  to  an  internal  DC  reference  level  V  which  rides  at 
+7.5  nominal  with  respect  to  the  external  ground  (GND). 

V  should  not  be  connected  to  the  external  ground. 

SOLID  STATE  BUFFER  INPUTS 

The  solid  state  signal  and  reference  inputs  are  true  differ¬ 
ential  inputs  with  high  AC  and  DC  common  mode  rejection, 


Standard  Resolver  Control  Transmitter  (RX)  Outputs  as 
a  Function  of  CCW  Rotation  From  Electrical  Zero  (EZ) 
With  R2-R4  Excited. 

:R  SIGNALS 
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so  most  applications  will  not  require  units  with  isolation 
transformers.  Input  impedance  is  maintained  with  power 
off.  The  recurrent  AC  peak  +  DC  common  mode  voltage 
should  not  exceed  the  following  values: 


Input 

Common  Mode 

Maximum 

Max  Transient 
Peak  Voltage 

11.8V  L-L 

30V  Peak 

150  V 

26  V  L-L 

60V  Peak 

150V 

90  V  L-L 

220V  Peak 

500V 

115  V  Ref 

300V  Peak 

1000V 

26  V  Ref 

60V  Peak 

200V 

90V  line-to-l ine  systems  may  have  voltage  transients  which 
exceed  the  500V  specification  listed  above. 

Voltage  transients  are  likely  to  occur  whenever  synchro 
voltages  are  switched  on  or  off.  For  instance,  a  1000V 
transient  can  be  generated  when  the  primary  of  a  CX  or  TX 
driving  a  synchro  or  resolver  input  is  opened. 


DIRECT  INPUT 

Direct  input  units  require  a  signal  conditioner  that  provides 
a  2.0V  rms  nominal  resolver  type  signal  referenced  to  the 
internal  DC  reference  V.  This  input  option  may  be  pre¬ 
ferred  in  applications  where  the  signal  conditioner  can  be 
integrated  with  other  components,  as  in  many  multiplexed 
systems. 


LOGIC  INPUT/OUTPUT 

Logic  outputs  consist  of  parallel  data  bits  and  count  (CB). 
All  logic  outputs  are  short-circuit  proof  to  ground  and  to 
positive  voltages  as  high  as  VL.  The  CB  output  is  a  positive 
0. 7-2.0  jus  pulse,  and  data  changes  about  0.2  ms  after  the 
leading  edge  of  the  pulse  because  of  an  internal  delay  (see 
Figure  1).  Data  is  valid  0.5  ms  after  the  leading  edge  of  a 
CB.  Angle  is  determined  by  adding  bits  in  the  1  state. 

The  parallel  digital  outputs  are  gated  to  provide  a  6  and  a 
4,  6  or  8  line  byte,  depending  on  the  model  for  micro¬ 
processor  bus  interfacing.  When  the  Enables  for  the  gates 
are  at  logic  0,  the  gate  outputs  are  at  normal  logic  1  or  0, 
depending  on  the  bit  state.  When  the  Enables  are  at  logic  1, 
the  gate  outputs  are  high  impedance  and  the  micropro¬ 
cessor  sees  an  essentially  open  line.  Outputs  are  valid  0.5 
Ms  after  an  Enable  is  driven  to  logic  0.  For  10,  12  or  14 
bit  parallel  output  operation  when  the  3-state  feature  is  not 
used,  the  Enable  lines  should  be  tied  to  logic  0. 

The  inhibit  (INH)  logic  input  locks  the  transparent  latch  so 
that  the  bits  will  remain  stable  while  data  is  being  trans¬ 
ferred  (see  Figure  1).  The  output  is  stable  0.5  ms  after  the 
Inhibit  is  driven  to  logic  0.  A  logic  0  at  the  T  input  locks 
the  latch,  and  a  logic  1  allows  the  bits  to  change.  The 
purpose  of  the  INH  transparent  latch  is  to  prevent  the 
transmission  of  invalid  data  when  there  is  an  overlap  be¬ 
tween  the  CB  and  INH.  While  the  counter  is  not  being 
updated  the  CB  is  at  logic  0  and  the  INH  latch  is  trans¬ 


parent.  When  the  CB  goes  to  logic  1  the  INH  latch  is 
locked.  If  a  CB  occurs  after  an  INH  has  been  applied,  the 
latch  will  remain  locked  and  its  data  cannot  change  until 
the  CB  returns  to  logic  0.  If  an  INH  is  applied  during  a  CB 
pulse,  the  latch  will  not  lock  until  the  CB  pulse  is  over. 
The  purpose  of  the  0.2  ms  delay  is  to  prevent  a  race  con¬ 
dition  between  the  CB  and  the  INH  in  which  the  up-down 
counter  begins  to  change  just  as  an  INH  is  applied. 

The  Direction  Output  (U)  is  valid  as  shown  in  Figure  2.  It 
is  logic  1  for  counting  up  and  logic  0  for  counting  down. 
Logic  level  at  the  (U)  pin  is  valid  up  thru  0.5  fis  before  and 
0.1  ms  after  the  leading  edge  of  the  (CB)  pulse. 

Since  the  SDC-19100  converters  contain  a  CMOS  device, 
standard  CMOS  handling  procedures  should  be  followed. 

TIMING 

Figure  2  Shows  the  timing  waveforms  of  the  converter. 
Whenever  an  input  angle  change  occurs,  the  converter 
changes  the  digital  angle  in  1  LSB  steps  and  generates  a  CB 
pulse.  The  output  data  change  is  initiated  by  the  leading 
edge  of  the  CB  pulse,  delayed  by  the  0.2  (jls  (nominal)  delay. 
The  output  becomes  stable  in  less  than  0.5  fi s  even  though 
the  CB  pulse  may  last  longer.  Inhibit  commands  do  not 
affect  the  updating  of  the  converter  no  matter  how  long 
they  are  applied.  A  simple  method  of  interfacing  to  a  com¬ 
puter  is  to  (a)  apply  the  Inhibit,  (b)  wait  0.5  ms,  (c)  trans¬ 
fer  the  data,  and  (d)  release  the  Inhibit. 

DYNAMIC  PERFORMANCE 

A  Type  II  servo  loop  (Kv  -  °°)  and  very  high  acceleration 
constants  give  these  converters  superior  dynamic  perform¬ 
ance,  as  listed  in  the  specifications.  If  the  power  supply 
voltages  are  not  the  +15VDC  nominal  values,  the  specified 
input  rates  for  full  accuracy  will  increase  or  decrease  in 
proportion  to  the  fractional  change  in  voltage. 
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As  long  as  the  maximum  tracking  rate  is  not  exceeded, 
there  will  be  no  lag  in  the  converter  output.  If  a  step  input 
occurs,  as  is  likely  when  the  power  is  initially  turned  on, 
the  response  will  be  critically  damped.  The  figure  shows 
the  response  to  a  step  input.  After  initial  slewing  at  the 
maximum  tracking  rate  of  the  converter,  there  is  one  over¬ 
shoot  which  is  inherent  to  a  Type  II  servo.  The  overshoot 
settling  to  a  final  value  is  a  function  of  the  small  signal 
settling  time. 


ANALOG  OUTPUTS 

The  analog  outputs  are  V,  e,  E,  and  VEL.  V  is  an  internal 
DC  reference,  +7.5  VDC  nominal.  The  outputs  e,  E  and 
VELride  on  the  internal  Dereference  voltage  V,  and  should 
be  measured  with  respect  to  V.  Outputs  can  swing  ±5V 
when  the  voltage  level  of  the  +15V  power  supply  is  +15V. 
The  output  swing  changes  proportionally  if  the  level  is 
not  a  +15V. 
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RESPONSE  TO  A  STEP  INPUT 


NOTE:  Values  for  A  and  B  are  found  in  the 
Model  Selection/Specification  Chart. 


CONVERTER  LOOP  DYNAMICS 


e  is  an  AC  error  proportional  to  the  error  (6  —  <$)  with  10 
mV/LSB  nominal  for  the  14  bit  unit  and  12.5  mV/LSB 
nominal  for  the  12  and  10  bit  units. 

E  is  a  filtered  DC  voltage  proportional  to  the  error  [6  —  <p) 
near  the  null  point,  with  —1  VDC/+LSB  of  error  for  the  14 
bit  unit  and  —  1 .25  VDC/+LSB  of  error  for  the  12  and  10 
bit  units. 

Velocity  output  (VEL)  is  a  DC  voltage  proportional  to 
angular  velocity  d0/dt  =  d0/dt.  The  output  is  positive  for 
an  increasing  angle. 

Maximum  loading  for  each  analog  output  is  1.0  mA.  Out¬ 
puts  e,  E,  and  VEL  are  not  required  for  normal  operation 
of  the  converter;  V  is  used  as  internal  DC  reference  with  the 
direct  input  option. 


ORDERING  INFORMATION 
SDC  -  19100  -000 


Accy  • 


1  =  ±21  min  (10  bit  unit  only) 

2  =  ±8  5  min  (12  bit  unit  only) 

3  =  ±5.3  min  (14  bit  unit  only) 


- Reliability  Grade:  0  =  Standard 


-  Temp,  Range: 


1  =  — 30°C  to  +105°C 
3  -  0°C  to  +70aC 


Input’ 


0=11 .8V,  400  Hz,  Synchro,  26V  Ref 
1  =  90V,  400  Hz,  Synchro,  115V  Ref 
3  =  90V,  60  Hz,  Synchro,  115V  Ref 

5  =  11 ,8V,  400  Hz,  Resolver,  26V  Ref 

6  =  11 .8V,  2.4  KHz,  Resolver,  26V  Ref 

7  =  2.0V,  400  Hz,  Direct,  26V  Ref 

8  =  2.0V,  60  Hz,  Direct,  26V  Ref 

9  =  2.0V,  2.4  KHz,  Direct,  2  6V  Ref 


Resolution 


0  =  10  bits 
2  =  12  bits 
4=14  bits 


<—  Family  Code 


Signal  Input  Type: 


SDC  =  Synchro 
RDC  =  Resolver 
XDC  =  Direct 


The  outputs  e,  E  and  VEL  are  not  closely  controlled  or 
characterized.  Consult  factory  for  further  information. 

IN  GENERAL 

For  applications  where  a  square  wave  is  more  convenient 
than  the  conventional  sine  wave,  the  SDC-19100  Series 
converters  are  capable  of  operating  with  square  waves. 

When  brushless  resolvers  are  used  as  position  transducers,  it 
is  recommended  that  the  transmitter  type  be  used  because 
if  a  receiver  resolver  is  used  a  decrease  in  accuracy  will 
occur. 

For  users  who  desire  a  built-in-test  (BIT)  function  to  detect 
position  error  between  the  input  and  output,  a  simple 
detection  circuit  can  be  implemented  with  the  AC  error 
signal  provided  by  the  SDC-19100  converter.  The  schematic 
diagram  for  the  BIT  circuit  is  available  from  DDC. 


MECHANICAL  OUTLINE 
Dimensions  in  inches  (millimeters) 


2  050  t010 
(PIN  CENTERS) 


NOTES: 

1.  Pin  material  is  bronze  phosphor  with  solder  plating. 

2.  Case  material  is  glass  filled  Diallyl  Phthalate  per  MIL-M-14, 
type  SDC-F. 

3.  Pin  S4  is  present  on  resolver  units,  and  omitted  on  synchro  units. 

4.  Omit  pins  1 1 ,  12,  13,  14  and  13,  14  for  1 0  bit  units  and  12  bit 
units  respectively. 

5.  For  the  direct  input  option,  pins  SI  and  S4  will  be  replaced  by 
NC  and  S2  and  S3  will  be  replaced  by  COS  and  SIN  respectively. 


*See  model  selection  chart  for  available  models. 
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